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ZELENA 

ROČENKA 

je stejně jako zelené stránky ča- 
sopisu Amatérské rádio věnována 
opět tomu z elektronické zájmové 
činnosti, co souvisí nějak s počítači. 
Jsou zde převážně příspěvky z mi- 
nulého ročníku souteže Mikroprog - 
Mikrokonkurs, a to zejména ty roz- 
sáhlejší, jejichž publikování v AR na 
pokračování by bylo nepraktické. 
Doplňují je drobnější konstrukční 
i programové výtvory, tentokrát pře- 
vážné na téma ” propojení počítače 
s tiskárnou”. 

Nebude asi mnoho těch, kteří do 
detailu ” okopírují ” obzvláště ty roz- 
sáhlé příspěvky. Domníváme se ale, 
že není jediným účelem zveřejňova- 
ných návodu, aby je někdo přesně 
okopíroval. Mnohem větší hodnotu 
mají jako zdroj inspirace, námětů, 
dílcích řešení pro úplně jiné úkoly 
a problémy, nebo třeba jako "učeb- 
nice” programování, ap. 

Hodně radosti a poučení nad 
letošní "zělenou ročenkou” vám 
přeje vaše 

redakce AR 
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Jiří Tobola, Oldřicha Stibora 63, 739 31 Řepiště 

V celé řadě přístrojů a jednoduchých zařízení stojíme před řešením funkční a datové klávesnice 
a zobrazování potřebných hodnot na sedmisegmentovém displeji. 

Předložené řešení počítá s minimální technickou podporou. Vzhledem k tomu, že jsou dostupné 
překladače ASM48 pro celou řadu počítačů, generovat aplikační SW při podpoře základních rutin by nemělo 
dělat problém celé řadě zájemců o použití v nejrůznějších aplikacích řízení. Popis bude věnován hlavně 
programovému vybavení, které tvoří hlavní podporu aplikací. Proto výpisu textu programu je třeba věnovat 
zvýšenou pozornost. 



Popis zapojení pro 8035 (obr. 1) 

Zobrazovací jednotka pracuje v multiplex- 
ním režimu spolu se snímáním klávesnice. 
Počet prvků displeje a klávesnice může být 
volen podle aplikace změnou inicializačních 
proměnných. Segmenty jednotlivých zobra- 
zovačů jsou spojeny paralelné a připojeny 
na budič segmentů U2 přes omezovači re- 
zistory 100 Q (75 Q). Může být použit libo- 
volný budič pro výkonové posílení portu Pí 
(8286, 8287, 3212, 3216 apod.). Budiče 
číslic jsou tvořeny tranzistory TI až T8 a ob- 
vodem 3212. 


Příklad: 

Připojení 8255 pro rozšíření l/O prostoru 
k zapojení podle obr. 1 . Programování je 
zřejmé při volbě instr. MOVX @ Ro,A. Nesmí 
se v tomto případě použít externí paměť dat, 
není-li blokována programovým způsobem 
přes tento port. 

Popis SW (pro 8035 - obr. 1) 

Základní programové vybavení je tvořeno 
tak, že se dá přizpůsobit jednoduchou změ- 
nou inicializačních proměnných k příslušné- 
mu zapojení. 


WDISP - Zápis na displej; zapisuje ob- 
sah střádače do další pozice 
na displeji. Při opakovaném 
volání automaticky posouvá 
zobrazení na displeji. 

RENTRY - Pravostranný výstup - ukládá 
obsah střádače do pravé kraj- 
ní pozice, přitom ostatní zna- 
ky posouvá doleva. 

PRINT - Zapisuje pevně uživatelsky 
definované zprávy ukončené 
kódem 00H a uložené v pa- 
měti programu (ROM) na dis- 
plej. 




CLE AR PRINT 

I I 

FIL L WDISP 


Obr. 3. Struktura 
programového vy- 
bavení (922-3) 


ECHO RDPAD HOLD DELAY 



KB DIN ENCACC RENTRY 

ECHO - Čeká na stisknutí klávesy 
a její význam vypiše na dis- 


Obr. 2. Připojení 
8255 pro rozšíření 
l/O prostoru (922-2) 


plej. Vhodná pro kontrolu dat 
zadávaných z klávesnice. 
RDPADD - Přidá nebo vymaže desetin- 
nou tečku za zadaným číslem. 


Klávesnice v aktivním stavu spíná přísluš- 
ný nulový buzený bit obvodu U3 s bity portu 
P2 (P24 až P27) tak, že uvádí do log.O 
příslušný bit portu P2, předtím nastavený na 
log. 1 instrukcí OUTL P2,A. Latch U3 (3212) 
zároveň budí příslušnou číslici displeje přes 
spínací tranzistory TI až T8. Rezistory v bá- 
zích tranzistorů TI až T8 jsou v rozsahu 1 až 
2,2 k£ž. Zápis do budiče čísel (U3) používá 
paměťovou instrukci MOVX @RO,A. Je možné 
samozřejmě použít dekodér 3205, připojený 
za latch 3212 (U5), Do takto orientovaného 
l/O prostoru lze připojit obvod 8255 pro jeho 
rozšíření. Doporučuji také porty Pí a BUS 
připojit přes rezistory 10 kQ na 5 V, pokud 
to bude potřebné k definici výchozího stavu. 
Vnější paměť programu může být tvořena 
dostupnými paměťmi PROM-EPROM podle 
rozsahu aplikace. Adresní látch 3212 (U5) 
tvoří adresu pro paměť programu a spolu se 
signálem PSEN dává kód instrukce na sběr- 
nici. 



Obr. 4. Kódování pozdravu ,,AHOJ‘‘ v testo- 
vacím programu (922-4) 


Jádrem programového vybavení je subru- 
tina ,,REFRSH“, která je vyvolána přeruše- 
ním od časovače a zabezpečuje obsluhu 
displeje v multiplexním provozu kopírováním 
registrů displeje z paměti RAM mikropočíta- 
če. Zároveň strobuje klávesnici. Vždy po 
jednom volání způsobí zobrazení 1 znaku 
a strobování 1 řádku klávesnice. Osmibitový 
datový vzorek v paměti RAM představuje 
příslušný znak s desetinnou tečkou ve tvaru 
(PGFEDCBA), kde (P) je desetinná tečka 
a (A-G) jsou buzené segmenty displeje. 
Tato rutina používá banku Rbl a proměnné 
LASTKY, CURDIG a F1 dávají status z této 
subrutiny. Zobrazování probíhá automaticky 
přerušováním od časovače zprava doleva 
až po délku displeje danou NEXTPL. 

Základní použití rutin 

Funkce jednotlivých rutin: 

KBDIN - Vstup z klávesnice - čeká do- 
kud nebyl přijat z klávesnice 
jeden tlačítkový vstup a vrací 
se s dekódovanou hodnotou 
ve střádači. 

CLEAR - Nuluje displej. 

ENCACC - Dekóduje binární vzorek ve 
střádači ve vztahu k zobraze- 
ní na displeji. Používá ACCU 
pro přístup k dekódovací ta- 
bulce. 


Vhodná pro zadávání desetin- 
ných čísel. 

HOLD - Je vyvolána po dobu stisknutí 
klávesy. Vhodná pro autoin- 
krementy nebo dekrementy 
v závislosti na stavu klávesni- 
ce. 

DELAY - Podprogram pro generování 
programového zpoždění v zá- 
vislosti na počtu cyklů REF- 
RESH a obsahu střádače 
před voláním. Vhodný pro bli- 
kání displeje a jiné jednodu- 
ché časové programové ope- 
race. 

Algoritmus pro snímání klávesnice je utvo- 
řen tak, že při stisku klávesy musí proběh- 
nout definovaný počet snímacích cyklů k po- 
tvrzení skutečného stisknutí. Je možné vy- 
hodnotit stisknutí definované klávesy s funk- 
cí SHIFT nebo CONTROL. Je-li stisknutá 
klávesa dekódována a potvrzena, je její po- 
zice vyjádřena číselnou hodnotoů. Tento 
kód je uložen do paměti na adresu KBDBUF. 
Dekódovací rutina potom čte obsah na tétp 
adrese ke zjištění, která klávesa byla stisk- 
nuta. 

Výpis programu je dosti komentován. Vý- 
znam jednotlivých proměnných, částí pro- 
gramu a vazeb je z komentáře patrný. Závě- 
rem je uveden krátký testovací program vy- 
volaný funkčními tlačítky 1 až 4. Tento pro- 
gram (resp. programy) začínají na ORG 
1 1 Fh. 












Zapojení 


Obr. 1. Zapojení klávesnice a displeje s 8035 (922-1) 


Jak je zřejmé z obr. 5, je sběrnice použita 
jako výstupní port pro buzení číslic (DIGIT) 
v případě, že v aplikacích vystačíme s vnitř- 
ními možnostmi mikropočítače. Části portu 
P2 můžeme použít jako expanderové připo- 
jovací vodiče nebo jako CS pro připojení 
dalších l/O obvodů na sběrnici. Sběrnici a Pí 
je vhodné připojit na +5 V přes rezistory 
10 kQ. 


Programová obsluha 

Program se použije stejný, jako pro 8035, 
jen sg vypustí v definiční oblasti registr ban- 
ky 0 ACCSA a ROSA (uvolníme si registry 
R4 a R3 pro použití). Zařadí se instrukce 
OUTL PDIGIT.A (označena # #) v řádku 
106 a vypustí se instrukce: 


SEL RBO 
MOV ACCSA, A 
MOV A,R0 
MOV ROSA, A 
MOV R0,#80H 
MOV A, ACCSA 


MOV X @RQ,A 
MOV A, ROSA 
MOV R0,A 
MOV A, ACCSA 
SEL RB1 _ 

(řádky 107 až 1 17). 3 
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0007 D5 
0006 AA 
0009 23F0 
OOOB 62 


OOOC 1 A 1 O 

OOOE FA 
00<JF 93 


t |******* ***************************************************************** 

2 7 

3 7 INICIALIZAČNÍ PRIRADENI PRO DEFINICI KONFIGURACE 

4 7 

5 7********** ************************************************************** 


0010 

6 

7 

7 

POIGIT 

EQU 


BUS 

7BUDI CISLICE A STROBUJE RADKY KLÁVESNICE 

0008 

6 

PSGMNT 

EOU 


PÍ 

7BUDI SEGMENTY CI8LIC DISPLAY V ZÁVISLOSTI 00 BUZENE CISLICE 

0009 

9 

10 

11 

PINPUT 

EQU 


P2 

7SNIMA STLAČENOU KLÁVESU BUZENEPO RADKU 

0000 

7 

POSLOG 

EOU 


00H 7POSITIVNI LOGIKA POUŽITÝCH PRVKU 

OOFF 

12 
' 13 
14 

NEGLOG 

EQU 

OFFH 

7 NEGATIVNÍ LOGIKA POUŽITÝCH PRVKU 

OOFF 

7 

CHRPOL 

EQU 


NEGLOG 

7DEF.ZDA VÝSTUPNÍ VODICE JSOU AI TIVNI HI-LQ-PDIGIT 

0000 

15 

SEGPOL 

EQU 


POSLOG 

70EF.ZDA VÝSTUPNÍ VODICE JSOU AKTIVNÍ HI-L0-P3GMNT 

00F0 

16 

17 

18 

INPMSK 

EQU 

OFOH 


7DEF.BITY POUŽITÉ JAKO VSTUPNÍ 

0008 

7 

CHARNO 

EQU 


8 

7 POČET CISLIC DISPLAY (POČET SEDMISEGMENTOVEK) 

0004 

19 

NROWS 

EQU 


4 

7 POČET RADKU KLÁVESNICE (MENŠI NEBO = CHARNO) 

0004 

20 

21 

22 

NCOLS 

EQU 


4 

7 MENŠI DIMENZE KLÁVESNICOVÉ MATICE 

FFF 0 

TICK 

EQU 


-10H 

7 DETERMINUJE INTERUPT INTERVAL 1 EFRSH RUTINY 

0004 

23 

DEBNCE 

EQU 


4 

7 POČET USPESNYCH SNÍMANÍ KLÁVESY KU JEJÍ DETEKCI 

0000 

24 

25 

26 
27 

blank 

EQU 


OOH 

7KOD MEZERY DISPLAY (BLANK) 

000F 

7 

ENCM3K 

7 

EQU 


OFH 

7 VYBER KTERE BITY JSOU PLATNÉ PRI CTĚNI Z PORTU P2 


28 |*************************************************************** ******* **** 

29 7 

30 7 POUŽITÉ REGISTRY BANKY O 

31 7 

32 7P0INTERY PRO ADRESACI PAMĚTI ♦ USCHOVÁ ACCU A RO PKI POUŽITI 8035 


0000 

33 

PNTRO 

EQU 

RO 


0001 

34 

PNTR1 

EQU 

R1 


0003 

35 

ACCSA 

EQU 

R3 

7 POUŽITO PRO U3CH0VU ACC U PRI 8035 

0004 

36 

ROSA 

EQU 

R4 

7POUZITO PRO USCHOVU RO PRI 8035 

0007 

37 

38 

39 

40 

41 

42 

43 

NEXTPL 

EQU 

R7 

7 UKAZATEL NA3LEDNE DISPl .POSICE PRO ZAPIŠ 


, 

I ************************************************************************* 

7 

7 POUŽITÉ REGISTRE BANKY 1 


t 

7 PNTRO 

EQU 

RO 

7 (UZ BYLO DEFINOVÁNO) 


44 

7PNTR1 

EQU 

R1 


0002 

45 

ASAVE 

EQU 

R2 

7DRZI HODNOTU ACCU BEHEP REFRESH RUTINY 

0004 

46 

ROTPAT 

EQU 

R4 

7 DRZÍ VSTUPNÍ VZORKU BEKEM ROTACE PRES CY 

0005 

47 

ROTCNT 

EQU 

R5 

IPOCITA BITY PROCHÁZEJÍCÍ PRES CY 

0006 

48 

LASTKY 

EQU 

R6 

7 DRZÍ POSICI POSLEDNÍ STLACENE KLÁVESY 

0007 

49 

CURDIG 

EQU 

R7 

7 DRZÍ POSICI PRI3TIHO DISPLAY-ZOBRAZ, ZNAKU 


50 

51 

52 

53 

54 


;****************************** o****************************************** 
7 


DATA RAM ALOKACE 


0020 

0021 

55 

NREPTS 

EQU 


32 

7 DRZÍ POČET USPESNYCH SEJMUTI DETEKOVANÉ KLÁVESY 

56 

KEYLOC 

EQU 


33 

7 INKREMENTOVÁNO PRI USPLSNEM SEJMUTI KLÁVESY 

0022 

57 

KBDBUF 

EQU 


34 

7 PRENASI POSICI 8TLACENI KLÁVESY Z REFRESH RUTINY 


58 





7 DO OSTATNÍCH SUBROUTIN 

0023 

59 

60 

RDELAY 

7 

EQU 


35 

7 NENULOVÉ PRI FUNKCI REFRESH RUTINY 

0037 

61 

62 

7 

SEGMAP 

EQU 


(63-CHARNO) 

7BASE DISPLAY REGISTRU V INTERNÍ RAM 


63 

64 

65 

7 



7 MUŽE 

BYT KDEKOLIV V INTERNÍ PAMĚTI RAM 

-<• 

| *************************************************************** ****** ******* 


66 

i-7 

7 





0000 

O f 
68 
69 

t -S-SSS 

7 

ORG 


OOH 



0000 046B 

70 

71 

7 


JMP 

INIT 

7 SKOK NA INICIALIZAČNÍ PROCEDURU 

0007 

72 

73 

7 

ORG 


07H 




74 

7 






75 

7 TI I NT 

TIMER 

INTERUPT 

SUBROUTINA 



76 

77 
7B 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 
' 92 

93 

94 

95 

96 

97 

98 

99 
100 


7 

7 

7 

7 

TIINTl SEL 


CALL ADR 007H PRI PŘETEČENI CASOVACA 

TIMER TADY MUŽE BYT PRE IN IC I ALI ZOV ANY PODLE POTÍ E8Y UŽIVATELE 
ZDE SE PROVEDE OSVEZENl DISPLAY A SNÍMANÍ KLÁVESNICE 
VŽDY PO JEDNE POSICI PRI KAŽDÉM VOLANÍ 
RB1 

MOV ASAVE, A 

MOV A.8TICK 

MOV T,A 7HEINICIALIZACE TIMERU 

7 

J ************************ ****************** ******* ******** ******* ********** 

7 

7 VLASTNI UŽIVATELSKÁ INTERUPT RUTINA MUŽE BYT ZDF UMÍSTĚNA 

7 PRO LIBOVOLNÉ POUŽITI VE VAZBĚ NA PŘERUŠENI CASC VACE 

7 

>************************************************************************* 

CALL REFRSH 7 VOLANÍ D1SPLAY/KLAVESNIC0VE SUBROUTINY 

7TIRET OBNOVA ACCU PŘED NÁVRATEM Z REFRESH SUBROUTINY 
TIRETi MOV A» ASAVE 

RETR 

I ************************************************************************* 

7 

7 REFRSH SUBROUTINA MULTIPLEXUJE 7 SEG, DISPLAY A VŽDY ZOBRAZÍ DAl SI POSICI 

7 na Display. je vhodné ji volat v msec, intervalech 
;************************************************************************ 

7 


0010 

2300 

101 

REFRSHI 

MOV 


A, ABLANK XOR SEGPOL 





0012 

39 

102 



OUTL 

PSGMNT , A 7 ZAPIŠ 

BLANK KÓDU DO P8C MNT 




0013 

2362 

103 

REFR1I 

MOV 


A,#CHRSTB 





0015 

6F 

104 



ADD 

A, CURDIG 





0016 

A3 

105 



MOVP 

A,8A 







106 

7 #4 


OUTL 

POIGIT, A 7 BUZENI 

ZNAKU PRI POUŽITI 8748 




0017 

C5 

107 



SEL 

RBO 

7R0 BANK VYBER 

JEN 

PRO 

8035 

0018 

AB 

108 



MOV 

ACCSA, A 

IU3CH0VA ACCU DC ACCSA 

JEN 

PRO 

8035 

0019 

F8 

109 



MOV 

A , RO 

7USCHOVA RO 00 P03A JEN 

PRO 

8035 


00 1 A 

AC 

110 

MOV 

-ROSA, A 

7 PRO 8035 

001B 

B880 

111 

MOV 

R0,#0B0H 

7 B I T 7 SET JAKO ADRESA 3212 PRO INSTR.MOVX 

001D 

FB 

112 

MOV 

A, ACCSA 

70BN0VA ACCU PRI 8035 

001E 

90 

113 

MOVX 

á)R0,A 7 Z API 3 

DO D1GIT LATCH (3212) JEN PRO 8035 

00 1F 

FC 

114 

MOV 

A, ROSA 

7 OBNOVA RO JEN PRO 8035 

0020 

A6 

115 

MOV 

RO, A 

7 PRO 8035 

0021 

FB 

116 

MOV 

A, ACCSA 

70BN0VA ACCU JEf PRO 8035 

0022 

05 

117 

118 

1 19 
120 

SEL 

7 

7 PRI POUŽITI 8748 SE 

RB1 7 VYBER FBI PRO 8035 

INSTR.OD SEL RBO PO SEL RB1 VYPOUŠTĚJÍ (JEN PRO 8035) 

002! 

2337 

121 

MOV 

A , 4SEGMAP 7 DEFINICE BAZE DISPLAY-I EUISTRU V RAM 

00 M 

6F 

122 

ADD 

A, CURDIG 

7 ADD CURDIG POSI NITI 

00 *6 

A 9 

123 

MOV 

PNTR 1 , A 


00 ?7 

Fl 

124 

MOV 

A,apNTRl 

7LADOVANI VZORKY 

0028 

39 

125 

126 

OUTL 

7 

P3GMNT , A 7 BUDÍ 

PRI3LU3NE SEGMENTY 


U29 B821 
)« 2B OA 


t 02C BD04 
002E F7 
002F AC 
0030 F64A 


0032 AS 

0033 B5 


003B B004 
0030 004 A 


003F FO 
0040 C64A 

0042 07 

0043 AO 

0044 964A 

0046 FE 

0047 8822 

0049 AO 

004A B82 1 
004C 10 
004D FC 
004E ED2E 

0050 EF62 


0052 BF 08 
0054 BOOO 
0056 765A 
0058 BEFF 
005A A 5 


127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 


I *********** <ř* ********************************************************* 

7 DALSI ZNAK JE NYNÍ ZOBRAZEN NA DISPLAY 

7 KLÁVESNICOVÁ SNÍMACÍ RUTINA JE ZARADENA DO DI8P1AY PROCEDURY 

7 S VYUŽITÍM BUZENI PRISLU8NE CISLICE A tím I PRISL. RADKU KLAV, 

f********************************************************************** 

SCANI MOV PNTRO, AKEYLOC 7NASTAVUJE POINTER NA UFAZATEL POCTU SNÍMANÍ, 


IN 


A , P I NPUT 


7NACITA STLAČENI KLÁVESY 


I************************************************************************** 

7 

t******************* ******************* *********************** ******** 

7 ROTACE ACCU PRES CY 

t********************************************************************* 

SCAN1J MOV ROTCNT, ANCOLS 7 NASTAVUJE ROTAČNÍ SMYCIU PODLE POCTU SLOUPCU 

142 NXTL0C7 RLC A 

143 MOV POTPAT , A 7UCHOVAVA PUSUNl TOU VZORKU 

144 JC 8CAN5 7 JEDNOTKOVÝ BIT INDIKUJE ZE NEBYLA STLAČENA KL, 

145 7 

146 I********************************************************'************ 

147 >V TOMTO BODE PROGRAMU BYLO PRAVÉ ZJIŠTĚNO ZE HODNOTA V KEYLOC JE POSICE 

148 7TLACITKA KTERE JE NYNÍ STLACENE . NÁSLEDUJ I C I INSTRUKCE DEKÓDUJI A URČUJI 

149 f VYZNÁM ZMAČKNUTÉHO TLAČÍTKA, JAK POUŽÍVÁME MODIFIKACNI VYZNÁM Fl NKCE 

150 JTLACITKA(SHIFT,C0NTR0L)NEB0 JINÝ MODALNI VYZNÁM TLAČÍTEK MELO l Y SE TO 

151 J PRO VADĚ T V TOMTO BODE PROGRAMU, PREOT IM NEZ ZAČNE DALSI DEKÓDOVACÍ LOGIKA 

152 INAPRIKLAD V TETO ČASTI MUŽE BYT KEYLOC "PROMĚNN A POROVNÁVANÁ S FAMI 

153 I URČENOU POSICI MODALNIHO TLAČÍTKA A PRI JEHO IDENTIFIKACI SI NASTAVÍME 

154 7 NĚJAKÝ FLAG 3 SKOČÍME NA N A V , " SC AN5" A NEBO POROVNÁVAT PROM.KEYI OC S 

155 I PŘEDEŠLÝM JEJÍM OBSAHEM 

156 7*********************************************************************** 

157 CLR Fl I ZNAČKA ZE NEJMI NE JEDNA KLAVESA BYLA DETEKOVANÁ 

158 CPL Fl 7 NEGOVÁNO V BEZtEM SNÍMANÍ 

159 I 

160 I******************************************************************** 

161 > ZMAČKNUTI TLAČÍTKA bYLO DETEKOVÁNO V NEKTEREM SLOUPCI JEHO 

162 7 JEHO POSICE JE V KEYLOC ZJIŠŤUJE SE JE8TLI TO SAME BYLO 

163 > STLACENE V MINULEM CYKLU 

164 f ********************************************************* ************ 

165 7 


0034 

FO 

166 

MOV 

A.SPNTRO 

7 PNTRO STALE DRZÍ AKEYLOC 

003S 

2E 

167 

XCH 

A, LASTKY 


0036 

DE 

168 

XRL 

A, LASTKY 


0037 

B820 

169 

MOV 

PNTRO, #NHEPTS 

7PRIPRAVA NA KOI TROLU 



170 



70PAK0VACI CITAC 

0039 

C63F 

171 . 

JZ 

SCAN3 



172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 SCAN31 

189 

190 

191 

192 

193 

194 

195 

196 7 

197 3CAN51 MOV 

198 

199 

200 

201 I 

202 
203 


1 ********************************************************************* 

7 JINÉ TLAČÍTKO BYLO PŘEČTENO V TOMTO CYKLE NEZ PFEDTIM 

7 NASTAVUJE nhepts na požadovaný parametr pro noví COUNTDOWN 

I************* ******************************************************** 

I 

MOV 9PNTR0, ODEBNCE 

JMP SCAN5 

7 

)************«******************************************************** 

I TO SAME TLAČÍTKO BYLO DETEKOVÁNO JAKO V PREDESLTM CYKLU 

I PODÍVEJ SE NA NRF.PTS JESTLI JE NULO VE , NEDELEJ NIC 

7 JE8TE DEKREMENTUJ NREPTS 

7 JE LI NULA PŘESUN LASTKY DO KBDBUF 

;********************************************************************* 

> 

A , 9PNTR0 

SCAN5 
A 

9PNTR0, A 
SCAN5 

A, LASTKY 

PNTRO , WKBDBUF 
9PNTR0 , A 


MOV 


JZ 

DEC 

MOV 

JNZ 

MOV 

MOV 

MOV 


I JE LI NULA 

7 INDIKUJE JEDNO NAVÍC USPESNE TLAČ . ZMAČKNUT I 


7 JAK VÝSLEDEK Df KREMENTACE JE NENULOVÝ 
70ZNACUJE NOVE STLAČENI TLAČÍTKA 


PNTRO, 4KEYL0C 
INC 9PNTR0 

MOV A , ROTP AT 

D JNZ ROTCNT , NX TLOC 

CURDIG , SC AN9 


SCAN6: DJNZ 

7 

204 ;********************************************************************* 

205 7 NÁSLEDUJÍCÍ INSTRUKCE JSOU POUŽÍVANÝ KLAVE3NICOVOU RUTINOU 

206 7 (SCANING) A JSOU VYKONÁVÁNY POUZE PO REFRESH CELFHO DISPLAY 

207 » TEDY VŠECH CISEL DANÝCH CHARNO 

206 7 ********************************************************************* 

209 7 

210 MOV CURDIG, 4CHARNO 

211 MOV BPNTRO, #0 7PNTR0 STALE OBSAHUJE AKEYLOC 

212 i JF1 SCAN8 7JUMP JAK NEJAKF TLAČÍTKO BYLO DETEKOVÁNO 

213 MOV LASTKY, #0FFH 7MENI (LASTKY) JEK NEBYLO STLAČENO ZADNĚ TL. 

214 SCAN8J CLR Fl 

215 7 

216 7 ******************************************************************** 

217 I DALSI PROGRAMOVÝ SEGMENT JE INTERUPT-RIZENA CAST "DELAY" 

218 J POUŽÍVAJÍC DEKREMENTACI RAM LOKACE ."ROELAY" 1"KFAT ZA DI3PL. 

219 | REFRESH DOKUD "RDELAY" NENÍ NULA 





\ 

í 

i 

I 


I 

i 




220 

) ******************************************************************** 



221 

t 




i. 

005B 

8923 

222 



MOV 


PNTRi t 6RDELAY 

005D 

Ft 

223 



MOV 


A/9PNTRI 

005E 

C662 

224 



JZ 


SCAN9 

0060 

07 

225 



DEC 


A 

0061 

AI 

226 



MOV 


iíPNTR 1 > A 

0062 

83 

227 

SCAN9I 

RET 



\ 



'228 

> 







229 

)******************************************************************** 



230 

) 







231 

1 CHRSTB 

JE BAZE 

VRCHOLU 

BINÁRNÍCH VZOREK POVOLUJÍCÍ SVIT 1-SEOMISEGMENTOVKY 

0062 


232 

CHRSTB 

EQU 



(S-l) AND OFFH 

0063 

FE 

233 



DB 


(00000001B XOR CHRPOU 

0064 

FD 

234 



DB 


(00000010B XOR CHRPOU 

0065 

FB 

235 



DB 


(00000100B XOR CHRPOU 

0066 

F7 

236 



DB 


(00001000B XOR CHRPOL) 

0067 

EF 

237 



DB 


(OOOIOOOOB XOR CHRPOU 

0068 

OF 

238 



DB 


(00100000B XOR CHRPOL) 

0069 

BF 

239 



DB 


(01000000B XOR CHRPOL) 

006A 

7F 

240 



DB 


(ÍOOOOOÓOB XOR CHRPOL) 



241 

t 







242 

hnit 

INITIALIZACE 

PROCESOROVÝCH REGISTRU 

006B 

D5 

243 

INITl 

SEL 



RB1 

006C 

BF 08 

244 


MOV 



CURDIG, 0CHARNO 

006E 

B822 

245 



MOV 


PNTRO, 0K8DBUF 

0070 

BOFF 

246 



MOV 


8PNTRQ , 0OFFH 

0072 

B821 

247 



MOV 


PNTRO, 4KEYL0C 

0074 

BOOO 

248 



MOV 


8PNTR0 » 40 

0076 

23F0 

249 



MOV 


A , 0INPMSK 

0078 

3A 

250 



OUTL 


PINPUT , A I NASTAVUJE PINPIT NA LOG.l PRO STAHOVANÍ DO 0 

0079 

C5 

251 



SEL 


RBO 

007A 

1 4A9 

252 



CALL 


CLE AR JIN1CIALIZACE DISPLAY REGISTRU V RAM 

007C 

A5 

253 



CLR 


F 1 

007D 

23F0 

2S4 



MOV 


A , 0T ICK JNASTAVTNI INTERUPT INTERVALU 

007F 

62 

255 



MOV 


T » A 

0080 

55 

256 



STRT 


T 

0081 

25 

257 



EN 


TCNT1 ) PO VOLUJE TIMER INTERUPT 



258 

» 







259 

t 







260 

1 ********* ** ******* *************** *********************** * *********** 



261 

1 







262 

1 ECHO 

KONTROLA ZDA 

NEJAKE NOVE STLAČENI TLAČ. BYLO DETEKOVÁNO 



263 

> 


TRANSFORMUJE KAZDE STLAČENI DO Dl SPILSEGMEN TOVE VZORKY 



264 

) 


A ZAPISUJE TO DO PŘÍSLUŠNÉHO DISPLAY REGISTRU V RAM 



265 

| ******************************************************************** 

0082 

148E 

266 

ECHO! 

CALL 

KBDIN 

1 ZJIŠTĚNI NOVÉHO STLACEM 

0084 

B28C 

267 



JB5 


FKEY 1 SKOK JE LI DETT KOVÁNO TL.V PRAVÉM SLOUPCI 



268 

> 


PROTOŽE 

ACCU JE POUŽÍVANÝ ENCACC A RENTRY RUTINAMI JEHO OBSAH 



269 

i 


MUSÍ 

BYT 

ZPRACOVANÝ NEBO USCHOVANÝ PŘED VOLÁNÍM ENCACC 

0086 

14C5 

270 



CALL 


ENCACC ) TVOŘI PRISLUSNÍU VZORKU SEGMENT ZOBRAZENI 

0088 

1 4E6 

271 



CALL 


RENTRY 1 ZAPISUJE VZOHKl DO DISPLAY REGISTRU V RAM 

008A 

0482 

272 



JMP 


ECHO t SMYČKA 



273 

t 





nnffr 

241F 

274 

FKEYI 

JMP 



FUNCTN 1JUMP MIMO STRATKU (OF PAGE CODE) DO DEMONSTR, 



275 





1 RUTIN RESP. UŽIVATELSKY DEFINOVANÝM 


008E B922 
0090 2380 

0092 21 

0093 F28E 
0095 0399 

0097 A3 

0098 83 


0099 


00A9 2300 
00A8 8938 


RUTIN 

; *************************************** **************************** 

> IMPLEMENTACE NÁSLEDUJÍCÍCH SUBROUTIN SE SPOLEČNÍ POUZIVA 

I PRO VET8INU KLAVE3NICOVE/DISPLAY ORIENTOVANÝCH APLIKACI 

I MOHOU BYT POUŽITÉ PRESNt JAK JSOU UVEDENE NEBO IRISPUSOBENE 

I PRO SPECIÁLNÍ POUŽITI 

t ****************************************************************** 

1KBDIN KLÁVESNICOVÁ VSTUPNÍ SUBROUTINA 

I MUŽE BYT POUŽITA KU SPOJENI UŽIVATELSKÉHO PROGRAMOVÉHO POZADÍ 

> S PŘERUŠENÍM ŘÍZENOU KLÁVESNICOVOU SUBROUTINOU (SCANER) 

» DAVA POUZE PO STLAČENI NOVÉHO TLAČÍTKA DEKODOVAt OU HODNOTU 

I (LEPE NEZ JEHO POSICI V MATICI TLAČÍTEK KLÁVESNICE) V ACCU 


276 

277 

278 

279 

280 
281 
282 

283 l 

284 » 

285 I 

286 I 

287 » 

288 KBDINl 

289 

290 

291 

292 

293 

294 

295 I 

296 I 

297 ILEGND 


MOV 


PNTR1 , 0KBDBUF 


MOV 

A , 08OM 

XCH 

A , 3PNTR I 

JB7 

KBDIN 

ADD 

a,«legnds 

MOVP 

RET 

A,8A 

TABULKY 

UKAZUJÍC! VYZNÁM 


1KBDBUF BUHE MASKOVÁN JAKO CISTY 
JNAPLNEII BUFFROVANOU HODNOTOU 


IPRICTENI BASE I EKOOOVAC I TABULKY TLAČÍTEK 
IOBDRZENI PŘIŠLI SNEHO VÝZNAMU TLAČÍTKA 


298 

299 

300 

301 

302 

303 

304 


PRO KLÁVESNICI POUŽITOU V TETO UKÁZCE APLIKACE 
S USPOŘÁDÁNÍM PODLE OBRÁZKU OBR.l 
BITY 6-4 MOHOU BYT POUŽITY POUŽITY K DEKÓDOVANÍ TYPt 
S TÍMTO VYZNAMEMI 


TLAČÍTEK 


305 LEGNOS EOU 


(S AND OFFH) 


BIT4 INDIKUJE SKUTECNE I EKAOICKt CISLO 

BIT5 INDIKUJE FUNKČNÍ Tt ACITKA V PRAVÉM SLOUPCI KLAV. 

6IT6 INDIKUJE PUNKCNI Zt AKY (* A 4) 

IPOUZIVA SPODNÍ BITY JA1Q TABULKOVÝ INDEX 


0099 

4F 

306 

DB 

4FH 






009A 

10 

307 

DB 

1 OH 






0098 

4E 

308 

DB 

4EH 






009C 

28 

309 

DB 

28H 

1 PDIGI T4o»> 

1 

2 

3 

<1> 

009D 

17 

310 

DB 

17H 






009E 

18 

311 

DB 

18H 

t PDIGI T5=*> 

4 

5 

6 

<2> 

009F 

19 

312 

DB 

19H 






00 AO 

24 

313 

DB 

24H 

» PGI GI T6sr» 

7 

8 

9 

<i> 

00A1 

I" 

314 

DB 

] 4H 






00A2 

15 

315 

DB 

15H 

1 PDIGI T7oa> 

* 

0 

« 

<4> 

00A3 

16 

316 

DB 

16H 






00A4 

22 

317 

D6 

22H 

f 

1 

1 

1 

1 

.00 A5 

11 

318 

DB 

11H 

t 

1 

1 

1 

l 

00A6 

12 

319 

DB 

12H 

f 

V 

V 

V 

V 

00A7 

13 

320 

DB 

13H 

1 PINPUT7 

PINIUT6 

PINPUT5 

PINPUT4 

00A8 

21 

321 

DB 

21H 







322 I 

323 ) ******************************************************************** 

324 ICLEAR ZAPISUJE '8LANK' ZNAK DO DISPLAY REGISTRU V RAM 

325 I VRACÍ SE 3 NASTAVENÝM NEXTPL NA LEVOU KRAJNÍ POSICI DISPLAY 

326 IFILL ZAPISUJE SEGMENTOVOU VZORKU V ACCU DO DISPLAY REGISTRU V RAM 

327 CLEARl MOV A,#BLANK XOR SEGPOL 

328 FILLt MOV PNTR1 ,03EGMAP+I 


7 


00 AO 

BF 08 

329 


MOV 

NEXTPLf ACHARNO 

00 AF 

AI 

330 

CLRlí, MOV 


8PNTR1.A } UKLÁDÁ BLANK KOD 

0000 

19 

331 


INC 

PNTR1 1 DALSI POSICE DO LEVA 

OOB i 

EFAF 

332 


DJNZ 

NEXTPLf CLR1 

0003 

BF08 

333 


MOV 

NEXTPLf ACHARNO 

OOB5 

83 

334 


RET 




338 

» 





336 

f ********* *********************************** *********** ************** 



337 

l 





338 

7PRINT SUBROUTINA KE 

KOPÍROVANÍ BINÁRNÍCH VZOREK Z "ROM" DO 



339 

> 

DISPLAY REGISTRU V RAM POČÍNAJE ADRESOU V PNTRO 



340 

1 

DOKUD 

SE NEDOSÁHNE ZAKONCOVACI KOD (V TOMTO PŘÍPADE -O0H«) 



341 

> 

lil RETEZEC ZNAKU MUSÍ BYT NA TEZE STRANCE JAKO SUBROUTINA 



342 

t 

PRINT 

Z DŮVODŮ VAZBY NA VOLANÍ "WDI3P NEBO RENTP Y" 



343 

) 

PRO EFEKTNÍ ZÁPISY DO DISPLAY REGISTRU V RAM 

00B6 

F 6 

344 

PRINTS MOV 


A, PNTRO } Z ADAVAf I NASLED. ZNAKOVÉ POSICE 

00B7 

A3 

345 


MOVP 

A f S>A 7NACTENI BÍTOVE VZORKY 

00B8 

C601 

346 


JZ 

PNTR1 JDEKODOVANI ZAVERECNEHO PRVKU (OOH) 

0 OBA 

14 OB 

347 


CALL 

WDISP > VYSTUP NA DALSI ZNAKOVOU POSICI 



348 

J AA 

CALL 

RENTRY 7NEB0 SKOK NA RENTRY 



349 

1 



OOBC 

18 

350 


INC 

PNTRO l INDEX UKAZOVATEL 

OOBO 

04B6 

351 


JMP 

PRINT 

OOBF 

83 

352 

PRNTlt RET 


7PR0VEDEN0 



353 

> 





354 

I******************************************************* ******** ****** 



355 

i 





356 

> AHOJ OBLAST 1 

PAMĚTI 

ROM S POZDRAVNOU ZPRÁVOU 'AHOJ' ( 1TEST2’) 



357 

; 

(UPOZORNĚNI ZE POUZE "HOJ" SE VÝPISE V PŘÍPADE EENTRY) 

OOCO 


356 

AHOJ EQU 


$ AND OFFH 

OOCO 

77 

359 


DB 

011101118 XOR SEGPOL 

00C1 

76 

360 


DB 

01110110B XOR SEGPOL 

00C2 

3F 

361 


DB 

001111116 XOR SEGPOL 

00C3 

1E 

362 


DB 

0001111 OB XOR SEGPOL 

ooca 

00 

363 


DB 

00 



364 

1 





365 

>************************************************************"******* 



366 

1 





367 

7ENCACC DEKÓDUJE LSNIBLE (SPODNÍ CAST ACCUINA HEXA KOD 

00C5 

530F 

368 

ENCACCI ANL 


A , (YENCMSK 

00C7 

03CB 

369 


ADD 

A , FDGPAT3 

00C9 

A3 

370 


MOVP 

A,SA 

OOCA 

83 

371 


RET 




372 

IDGPATS JE BAZE 

TABULKY SEGMENTOVÝCH VZOREK PRO Z AKLADNI 



373 

7ZNAKY (0-F) 





374 

1 PRO SPECIFICKÉ 

UŽIVATELSKÉ APLIKACE TABULKA MUŽE BYT MODIFIKOVANÁ 



375 

7P0DLE POTŘEBY 

S POUŽITÍM FORMÁTU SEGMENTU DISPLAY 



376 

1 FORMÁT JE V NAŠEM PŘÍPADE STANOARTNI — P-G-F-E-D-C-B- A — 



377 

I KDE -P-JE SVIT 

DESETINNE TEČKY 



378 

> 



OOCB 


379 

DGPATS EQU 


S AND OFFH 

OOCB 

3F 

380 


DB 

00111111B XOR SEGPOL 

OOCC 

06 

381 


DB 

0000011 OB XOR SEGPOL 

OOCD 

5B 

382 


DB 

0101 101 16 XOR SEGPOL 

OOCE 

4F 

383 


DB 

010011UB XOR SEGPOL 

OOCF 

66 

384 


DB 

0 1 1 001 1 OB XOR SEGPOL 

OODO 

6D 

385 


DB 

0110U01B XOR SEGPOL 

OOD1 

7D 

306 


DB 

01111101B XOR SEGPOL 

00D2 

07 

387 


DB 

000001 1 1B XOR SEGPOL 

00D3 

7F 

388 


DB 

01111111B XOR SEGPOL 

oona 

67 

384 


DB 

OllOOlUB XOR SEGPOL 

OOD5 

77 

390 


DB 

0111011 1B XOR SEGPOL 

0006 

7C 

391 


DB 

OlllllOOB XOR SEGPOL 

0007 

39 

392 


DB 

001110010 XOR SEGPOL 

0008 

5E 

393 


DB 

0101111 OB XOR SEGPOL 

0009 

7<J 

394 


DB 

01111001B XOR SEGPOL 

0 ODA 

71 

395 


DB 

01110001B XOR SEGPOL 



396 

» 





397 

!★******************************************************************** 



398 

i 





399 

l WOISP ZAPISUJE BINÁRNÍ VZORKU NYNÍ V ACCU DO DALSI ZNAKOVÉ POSICE 



400 

I 

DISPLAY (NEXTPL) 



401 

l 



OODB 

A9 

402 

WOISP» MOV 


PNTRlf A 

OODC 

FF 

403 


MOV 

A, NEXTPL 

0 ODD 

0337 

404 


ADD 

A, ASEGMAP 

OODF 

29 

405 


XCH 

AfPNTRl 

OOEO 

AI 

406 


MOV 

SPNTR1 r A 

00E1 

EFES 

407 


DJNZ 

NEXTPL > WD I SP 1 

00E3 

BF 08 

40B 


MOV 

NEXTPLf ACHARNO 

0OE5 

83 

409 

WUISPU RET 





410 

t 





411 

J********************* *************** ********************************* 



412 

IRENTRY SUBROUTINA K 

ZÁPISU ACCU DO PRAVÉ KRAJNÍ POSICE DISPLAY 



413 

» 

S POSUNUTÍM VŠEHO DO LEVA 0 1 POSICI 



414 

f 



0 0E6 

B938 

415 

RENTRYI MOV 


PNTRlf ASEGMAP ♦ 1 

00E8 

BF08 

416 


MOV 

NEXTPLf ACHARNO 

OOEA 

21 

417 

RENTRl! XCH 


Af 8PNTR1 

0 OEB 

19 

418 


INC 

PNTR1 

0 OEC 

EFEA' 

419 


/DJNZ 

NEXTPLf RENTRl 

OOEE 

BF08 

420 


MOV 

NEXTPLf ACHARNO IOBNOVA UKAZATELE NA LEVOU KRAJNÍ POSIC: 

0 OFO 

83 

421 


RET 




422 

1 





423 

| ******************************************************************** 



424 

; 





425 

> ROP ADD DAVA DESETINNOU TEČKU ZA POSLEDNÍ ZNAK NA DISPLAY 



426 

IOPADD DAVA DESETINNOU TEČKU KE ZNAKU KTERÝ JE V ACCU 



427 

; 



00F1 

2301 

428 

RDPADDt MOV 


A.A01H JNASTAVENI INDEXU NA PRAVOU KRAJNÍ POSICI 

OOF3 

0337 

429 

OPADDí ADD 


A, ASEGMAP 7SCITA DISPLAY REG, ADRESU PRO PRISL, POSICI 

00F5 

A9 

430 


MOV 

PNTH1 , A 

00F6 

F 1 

431 

MOV 


A f 3PNTR I 

0 0F7 

D380 

432 

XRL 


A, A80H 

00F9 

AI 

433 


MOV 

SPNTRlf ^ 

OOFA 

83 

434 


RET 




435 

; 





436 

i ******** *********************************************************** 

0100 


437 


ORG 

0 1 OOH IPOSUV NA DALSI STRÁNKU PAMĚTI PROGRAMU 




438 

t hold 

SUBROUTINA VOLANA 

KDYŽ 

JE STLACENE MEJAKE TLAČÍTKO 



439 

t 


A NEVRACÍ 

SE Z 

NI DOKUO NENÍ TOTO UVOLNĚNO 

0100 

D5 

440 

HOLD! 

SEL 

R81 


0101 

FE 

441 



MOV 


A,LA3TKY » (LASTKY)»OFFH JAK NENÍ 

0102 

C5 

442 



SEL 


RBO 

0103 

37 

443 



CPL 


A 

0104 

9600 

444 



JNZ 


HOLD 

0106 

83 

445 



RET 





446 

1 







447 

j ******************************************************************* 


0107 B923 
0109 AI 
010A F1 
010B 960A 
0100 83 


01 1F 


448 » 

449 10ELAY 8UBR0UTINA OAVA SPOZDENI ROVNÉ POCTU KOMPLETNÍCH REFRESH 013PLAY 

450 t 

451 OELAVI MOV 

452 

453 DELAY1I MOV 

454 

455 

456 I 

457 f **************** ***************************** ************** ******* 

45B I 

459 ORG 1 1FH JZACATEK UKÁZEK 


V ZÁVISLOSTI NA HODNOTĚ ZPOZOENI DANE ACCU PŘED JEJÍM VOLÁNÍM 
PNTR1 , FRDELAY 
MOV 3PNTR1,A 

A,9PNTR1 

JNZ OELAY1 

RET 


460 

461 I PROGRAMY NA TETO STRANCE PAMĚTI PROGRAMU JSOU UKÁZKOU POUŽITI 

462 INAVRZENEHO HN A PŘÍSLUŠNÝCH RUTIN SW 

463 t NESLOUŽÍ SAMOZDREJME JAKO STANDARTN1 FUNKCE TOHOTO PŘIKLADU 

464 > APLIKACE JE UKÁZKOU DEFINICE UŽIVATELSKÝCH RUTIN NA ZAKLADE 

465 IVYVflLANI FUNKČNÍCH TLAČÍTEK 

466 > RUTINY JSOU VOLANÝ JELI 1 ZE 4 F-KEYS STLACENE 

467 I 

468 > 

469 ;*•**************************************************************** 

470 f 

471 > FUNCTN RUTINY K IMPLEMENTACI 1 ZE 4 DEMONSTRAČNÍCH UKÁZEK V ZÁVISLOSTI 

472 I OD STLAČENI 1 ZE 4 FUNKČNÍCH TLAČÍTEK * 

473 í 


01 1F 

1231 

474 

FUNCTNJ 

JBO 


FUNCT1 



0121 

322D 

475 



JB1 


FUNCT2 


0123 

5229 

476 



JB2 


FUNCT3 




477 

> 






0125 

14F1 

478 

FUNCT4I 

CALL 

RDPADD 




0127 

0482 

479 



JMP 


ECHO ' 




480 

1 






0129 

344D 

481 

FUNCT3I 

CALL 

TEST3 




0 12B 

0482 

482 



JMP 


ECHO 




483 

1 






012D 

3443 

484 

FUNCT2I 

CALL 

TEST2 




0Í2F 

0482 

485 



JMP 


ECHO 




486 

» 






0151 

3435 

467 

FUNCTII 

CALL 

TESTI 




0133 

0482 

488 



JMP 

ECHO 





489 

1 








490 

j ******************************************************************** 




491 

> 








492 

1 TESTI 

TENTO 

KODOVY SEGMENT VYPLNÍ DISPLAY REGISTRY V RAM DEKTt MENTEM 

8 

0135 

8F08 

493 

TEST1I 

MOV 


NEXTPL 

, MCHARNO 


0137 

BB08 

494 



MOV 


PNTRO, 4CHARN0 1 NASTAVENI a CY» LOVE SMYČKY 

0139 

FF 

495 

TST1 1 t 

MOV 


A, NEXTPL 


0 13A 

14C5 

496 



CALL 

ENCACC 



013C 

1 4DB 

497 



CALL 

XDISP 



013E 

E639 

498 



DJNZ 

PNTRO, 

TST11 IKOPIROVANI HODf OTY DO 

DISPLA 

0140 

BF08 

499 



MOV 


NEXTPL, 4CHARN0 


0142 

83 

500 



RET 





501 ) 

502 l ******************************************************************* 


0143 B8C0 
0145 1486 
0147 2364 
0149 3407 
014B 04A9 


0140 2340 
014F 14AB 
0151 3400 
0153 04A9 


503 ITEST2 ZAPISUJE SEGMENTOVOU VZORKU "AHOJ" DO DISPLAY REG. 


504 | 

CHVÍLI 

POCKA A 

POTOM VYMAŽE DISPLAY 


505 TE3T21 MOV 


PNTRO, 

4AH0J 


506 

CALL 

PRINT 



507 

MOV 


A, *100 

JCYKLUS DISPLAY 100 

508 

CALL 

DELAY 



509 

JMP 


CLEAR 



510 ; 

511 I ******************************************************************* 

512 » 

513 ITEST3 

514 I 

515 » 

516 TEST3I 

517 

518 

519 

520 » 

521 t ****************************************************************** 

522 » TOBOLA JIRI 9,9,1988 

523 I ****************************************************************** 

524 END 


SUBROUTINA VYPLŇUJÍCÍ DISPLAV POMLČKAMI 
SKACE DO 3U8R0UT1NY 1 CLEAR • 

JAKMILE TLAČÍTKO JE UVOLNĚNO 
MOV A,401000000B XOR SEGPOL IVZOREK 

CALL FILL 

CALL HOLD 

JMP CLEAR 


KRAŤ 


USER SYMBOLS 
ACCSA 0003 

AHOJ 

OOCO 

A9AVE 

0002 

blank 

0000 

CLRi 

OOAF 

CURDIG 

0007 

DEBNCE 

0004 

DELAY 

0107 

ENCACC 

00C5 

ENCM3K 

000F 

FILL 

OOAB 

FKEY 

008C 

FUNCTN 

011F 

HOLD 

0100 

INIT 

0068 

INPM3K 

OOFO 

LE6NDS 

0099 

NCOLS 

0004 

NEGLOG 

OOFF 

NEXTPL 

0007 

PINPUT 

0009 

PNTRO 

0000 

PNTR1 

0001 

POSLOG 

0000 

RDELAY 

0023 

RDPADD 

00F 1 

REFR1 

0013 

REFRSH 

0010 

3CAN 

0029 

SCAN1 

002C 

3CAN3 

003F 

3CAN5 

004A 

SEGPOL 

0000 

TESTI 

0135 

TEST2 

0143 

TEST3 

014D 

WDI3P 

OODB 

WDISP1 

00E5 






CHARNO 

0008 

CHRPOL 

OOFF 

CHR8TB 

0062 

CLEAR 

DELAY1 

010A 

DGPATS 

OOCB 

DPADD 

00F3 

ECHO 

FUNCT1 

0131 

FUNCT2 

0120 

FUNCT3 

0129 

FUNCT4 

KBD8UF 

0022 

KBDIN 

008E 

KEYLOC 

0021 

LA3TKY 

NREPTS 

0020 

NRUWS 

0004 

NXTLOC 

002E 

PDIGIT 

PRINT 

0086 

PRNT1 

OOBF 

PSGMNT 

0006 

ROSA 

RENTK1 

00E A 

HENTRY 

OOE6 

ROTCNT 

0005 

ROTPAT 

SCAN6 

0050 

SCAN8 

OOSA 

SCAN9 

0062 

SEGMAP 

TICK 

FFFO 

TIINT 

0007 

TIRET 

000E 

TSTlt 


AS8EMBLY COMPLETE, NO ERRORS 


Výpis 1 . Zdrojový text obslužného programu 
(922-V1) 


00 A9 
0082 
0125 
0006 
0010 
0004 
0004 
0037 
0139 


.-.z - : . •_ • x ■ . , • • v x ; ■ : ^ ^ 

PROGRAM PRO 

MINIMALIZACI LOGICKÉ FUNKCE 

„BAJT“ 

V .. ' * ■* ■ ■■ 1 ■■■' J 


Zbyněk Calaba, OKI SZC, Krouzova 3039 143 00 Praha 4 


Při návrhu kombinačních logických obvodů se konstruktér často setkává s potřebou vytvořit logickou síť 
určitých vlastností. Požadovaná funkce se zpravidla vyjadřuje pravdivostní tabulkoů pro 2" stavů, kde n je 
počet vstupních logických proměnných. Pro určitý počet těchto stavů nabývá logická funkce hodnotu „1“ 
a pro ostatní „0“. Takovou funkci potom můžeme v triviálním případě vytvořit použitírp dekodérů těch stavů, 
pro které funkce nabývá hodnoty „1“ a provést logický součet jejich výstupů. 

Minimalizace logické funkce odpovídá na otázku, zda je vždy nutné při dekódování zahrnovat všechny 
vstupní proměnné, tj. zda by nebylo možné dva nebo více samostatných dekodérů nahradit jedním. 


V praxi existují různé metody pro minimali- 
zaci logických funkcí. Jejich pracnost však 
prudce roste s počtem vstupních proměn- 
ných. A člověk je tvor omylný a pohodlný . . . 

V některých případech řeší situaci prostě 
tak, že k vytvoření funkce použije PROM. 
Přitom řešení s použitím „klasických" hradel 
může vyhovět a navíc odpadnou problémy 
s programováním paměti. 

K usnadnění tohoto rozhodování, pro ře- 
šení úlohy minimalizace logických funkcí, 
případně pro demonstrační účely v krouž- 
cích a kursech, byl vytvořen tento program. 

Praktické využití na mikropočítači SPEC- 
TRUM je omezeno aplikací na logickou funk- 
ci nejvýše osmi vstupních proměnných. Toto 
omezení je dáno typem „stroje", neboť celá 
minimalizace je řešena v paměti omezené 
délky a v sestavě SPECTRA chybí prostře- 
dek pro efektivní práci se soubory. 

V amatérské praxi je minimalizace i takové 
logické funkce přínosem. Kdo nevěří, ať to 
zkusí manuálně! 

Hlavní program plní funkci editoru tabulek 
popisujících danou logickou funkci. Je na- 
psán v jazyce BASIC-ROM SPECTRUM. 
Podprogram ve strojovém kódu zajistí velmi 
rychlý výpočet s výstupem minimalizace ve 
tvaru „součet součinů" nebo „negace souč- 
tu součinů". Je využit strojový kód Z-80, 
délka podprogramu je 1800 bajtů. Při práci 
programu se využívá celá zbývající paměť 
počítače. 

Použití strojového kódu je nezbytné. V pů- 
vodní variantě byl algoritmus ověřován v ja- 
zyce BASIC. Nehledě na další omezení trval 
výpočet až 30 minut a to i při použití BASIC 
kompilátorů (BLAST, COLT). 


1. Implementace programu 

Připusťme, že budoucí uživatel potřebuje 
především funkční program a že jej nezají- 
má, co se v paměti počítače děje. Potom se 
stává otištění výpisu v assembleru neúčel- 
né. Uživatel by musel napsat do počítače 
podstatně více znaků a protože navíc pro- 
gramu nerozumí (proč také), nemůže ani 
posoudit, zda pomocí překladače vytvořil 
správný program, a to i v případě, kdy překla- 
dač nehlásí žádné chyby. Pro takového uži- 
vatele je zapotřebí, aby mohl na základě 
údajů autora vytvořit rychle a přesně poža- 
dovaný blok údajů v paměti a uchovávat ho 
na kazetě. 

K mnou použitému řešení mne inspiroval 
způsob používaný v časopise FUNKAMA- 
TEUR. Princip spočívá v tom, že je publiko- 
ván výpis, jehož každý řádek je doplněn 
I O kontrolním číslem (je vypočítáno pro každý 


řádek). Při vkládání údajů do paměti je kon- 
trolní číslo opět vypočítáváno a kontrolováno 
se zadaným. Uživatel je ihned upozorněn na 
případnou chybu. 

Domnívám se, že tento způsob otiskování 
programů by si zasloužil rozšíření i u nás. 
Ušetříme čas a také tiskové strany, kterých 
se nedostává. Navíc je takový způsob pří- 
stupný i „basicovským" programátorům. 

Ostatně, zdatní programátoři si zajisté naj- 
dou způsob, jak pořídit zpětný překlad do 
assembleru, pokud to ovšem potřebují. Ne- 
mluvě o programátorské etice, analýza a ná- 
sledná úprava cizího programu je časově 
náročná. 

Ve Výpisu 4 je uveden program „HEXLO- 
AD“, který umožní vytvoření bloku paměti na 
základě výpisu výše uvedených vlastností. 
Tento program je bezpečně použitelný pro 
vytváření bloků od adresy 6500 H výše. 

Program „HEXDUMP" (výpis 5) je určen 
pro kontrolní výpis paměti na displeji. V pří- 
padě, že by se navrhovaný způsob prezen- 
tace programů ve strojovém kódu ujal, jeho 
úprava pro tiskárnu nebude činit potíže ani 
začátečníkům. 

Oba programy si vytvářejí v řádku 1 REM 
strojový kód pro výpočet kontrolního čísla. 
Využívá se instrukce XOR. 

Tyto programy doporučuji vytvořit předem 
a po ověření funkce uložit na kazetu ještě 
před zahájením dalších prací. 

V paměti je nutno vytvořit dva bloky strojo- 
vého kódu. Druhý blok je řídicí tabulka. K vy- 
tvoření doporučuji následující postup: 

1. RESET systému (dojde k vynulování pa- 
měti). 

2. Zadat postupně: CLEAR 32767, LOAD 
"HEXLOAD", RUN. 

3. Zadat adresu (8000) a uložit první blok 
(postačí do adresy 8370). Postupně se 
vždy zadává celý řádek, včetně kontrol- 
ního čísla podle šablony v dolní části 
obrazovky. Pro opravy můžete využívat 
běžné editační klávesy. V případě správ- 
ně vložených dat je adresa automaticky 
zvětšena a ve vkládání můžete pokračo- 
vat. Nesprávně vložená data program 
signalizuje a řádek musíte napsat znova. 
Po dosažení konce bloku přerušíte pro- 
gram zadáním prázdného vstupního ře- 
tězce. 

4. Zadáte RUN a celý postup budete opa- 
kovat pro druhý blok od adresy 8500. 

5. Pořídíte bezpečnostní kopii podprogra- 
mu (příkazem SAVÉ “probajt" CODE 
32768, 1800) a provedete její verifikaci. 

6. Zadáte NEW (smaže se oblast od 32767 
dolů). 

7. Vytvoříte hlavní program „BAJT“ podle 
výpisu 1 . Pozor! Program se doporučuje 


spouštět teprve v okamžiku, když je celý 
vytvořen! V žádném případě to nemůže 
být dříve, dokud není přítomen v paměti 
podprogram! 

8. Příkazem GOTO 160 pořídíte potom úpl- 
nou kopii programu na kazetu. 

9. Nyní je možno zahájit testování pro- 
gramu a opravy chyb vzniklých při zápisu 
programu v BASICu. 

10. Konečnou verzi získáte použitím „auto- 
save" na řádku 160 (viz bod 8). 

Poznámka: 

Matematikové mohou dokázat, že způsob 
vytváření kontrolní Číslice nezabrání všem 
možným omylům při vkládání podprogramu 
do paměti. V případě, že se program při 
vyvolání minimalizace zhroutí nebo se neo- 
čekávaně zachová, mohu doporučit jediné: 
program „HEXDUMP" a kontrolu každého 
bajtu zvlášť. 


2. Používání programu 

Po zavedení programu je vypsáno základní 
menu: 

1 - tabulku vytvořit, 

2 - tabulku číst z magnetofonu, 

3 - tabulku uložit na magnetofon, 

4 - tabulku opravit, 

5 - tabulku zobrazit, 

6 - tabulku vytisknout, 

7 - tabulku minimalizovat, 

8 - tabulku invertovat. 

Řádky 3 až 8 jsou zobrazovány pouze 
tehdy, jestliže program již nějakou tabulku 
zná. 

Program pracuje se soubory (typ 
3 - CODE) délky 256 bajtů, jejichž jméno je 
tvořeno šesti volitelnými znaky a sufixem 
“.TAB". 

Použití tlačítka BREAK přeruší program, 
s výjimkou případu, kdy pracuje podprogram 
minimalizace. Pro návrat k menu bez ztráty 
dat použijte povel GOTO 22. Příkaz RUN 
také spustí program, avšak způsobí vynulo- 
vání tabulky. 

Hodnoty jsou do programu zadávány v he- 
xadecimálním tvaru. Zadávané hodnoty (ře- 
tězce) jsou' vždy interpretovány na úrovni 
posledních dvou pravých znaků, zbytek ře- 
tězce je ignorován. Vstup prázdného řetězce 
je ekvivalentní vstupu „0“ nebo je využit pro 
ukončení funkce (program vždy upozorní). 

Vytvoření tabulky 

Tabulka v paměti je vynulována a v násle- 
dujícím dialogu jsou zadávány termy, tj. sta- 
vy, pro které nabývá výstupní logická funkce 



hodnotu „1“. Celý proces vkládání ukončíte 
vstupem řetězce nulové délky (stiskem sa- 
motné klávesy ENTER). Poté je automaticky 
zobrazena tabulka, kterou jste vytvořili a jste 
dotázáni, zda souhlasíte se zadáním (s jejím 
obsahem). 

Pokud odpovíte ,,A“, přejde program zpět 
k hlavnímu menu. Odpověď ,,N“ vyvolá do- 
taz, zda si přejete tabulku jen opravit (,,0“) 
nebo vytvořit znovu (,,Z“). Rozdíl spočívá 
v tom, že na pokyn „0“ přejde program 
k funkci 4, pokyn ,,Z“ způsobí vynulování 
tabulky (návrat k počátku funkce 1). Jiné 
odpovědi program odmítá. 

Uvedený postup je vhodný pro vytvoření 
tabulky, která je málo obsazena hodnotou 
,,1“. Tabulku s převládajícím počtem jedni- 
ček získáte snáze tímto postupem: 

- bezprostředně po volbě 1 ukončíte práci 

(ENTER), 

- odsouhlasíte nulovou tabulku (,,A“), 

- po zobrazeni menu provedete volbu 8, 

- použijete volbu 4 - opravit tabulku. 

Čtení tabulky z magnetofonu 

Po této volbě jste dotázáni na název tabul- 
ky, kterou chcete číst. Délka názvu je zkon- 
trolována. Sufix “,TAB“ nezadávejte, je do- 
plňován automaticky. Potom zbývá běžná 
obsluha počítače při čtení souboru. Po 
úspěšném čtení se program vrací k hlavní- 
mu menu. 

V případě, že zadáte prázdný řetězec 
místo názvu, je nahrán prvý soubor typu 3, 
ovšem jen za předpokladu, že má shodné 
parametry jako soubory vytvářené pro- 
gramem ,,BAJT“. Jinak nastane chyba a je 
nutno program znovu spustit. 

Zápis tabulky na magnetofon 

^Jste požádáni o název tabulky (opět neza- 
dávejte sufix “,TAB“). Vstup prázdného ře- 
tězce program odmítá, stejně jako název 
delší než šest znaků. Další postup je shodný 
s postupem pro (Dráči se soubory. Po nahrání 
máte možnost volbou ,,A“ verifikovat ulože- 
ná data. Jiná volba, stejně jako úspěšná 
verifikace dat, vede k návratu k hlavnímu 
menu. 

Oprava tabulky 

Tabulka je opravována po jednotlivých 
prvcích, jejichž pozici je vždy nutno zadat. 
Zadáváte tedy nejdříve pozici, potom je zná- 
zorněna stará hodnota a potom jste požádá- 
ni o vstup hodnoty nové. 

Vstup prázdného řetězce při dotazu na 
pozici způsobí zobrazení tabulky a žádost 
o její odsouhlasení. Pozor! Odpověď „Z“ 
vede nenávratně ke ztrátě dat a funkci 1, tj. 
znovuvytvoření tabulky! Pokud si přejete po- 
kračovat v opravách, je nutno zadat ,,N" a na 
následující otázku odpovědět znakem ,,0“. 

Zobrazení tabulky na displeji 

Tato volba způsobí, že tabulka je zobraze- 
na ve tvaru mapy, kdy pořadí indexů v řád- 
cích a sloupcích je změněno proti přirozené 
posloupnosti hexadecimálních číslic. Tento 
způsob poskytuje konkrétnější grafickou 
představu o povaze logické funkce a mož- 
nostech její minimalizace. 

Vytištění tabulky na tiskárně 

Výstup je zajištěn příkazem LPRINT. Máte 
možnost zadat pro tabulku libovolný nadpis. 
Vzor výpisu je uveden v kontrolním příkladu 

na obr. 1. 

Ti uživatelé, kteří nemají k dispozici origi- 
nální tiskárnu, musí nahrát před spuštěním 
programu do paměti obslužný podprogram 
a provést inicializaci. Doporučuji jeho umís- 
tění v rozmezí adres 5B00-5BFF, rozhodně 
však do adresy 7FFF. 


LOGICKÁ FUNKCE (OR-AND) : 


< 

(/A/B/E) 

+( /A/B/C/D) 
+( A B C D) 
> 


Tabulka k předcházející logické funkci 



O 

1 

3 

2 

6 

7 

5 

4 

c 

D 

F 

E 

A 

B 

9 

8 

O: 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 : 

1 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 

3: 

1 

1 

•1 

•1 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 

2 s 

1 

1 

1 

1 

1 

1 

1 

■1 

0 

O 

0 

0 

0 

0 

0 

0 

6: 

O 

O 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

7: 

O 

0 

0 

0 

0 

0 

O 

0 

0 

0 

0 

0 

0 

0 

0 

0 

5: 

O 

0 

O 

0 

0 

0 

O 

0 

O 

0 

0 

0 

0 

0 

0 

0 

4: 

0 

0 

O 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

C: 

0 

0 

0 

0 

0 

0 
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LOGICKÁ FUNKCE (NOR-AND): 
/< 

(/A/B/E) 

+( /A/B/C/D) 

+( A B C D) 

> 


Obr. 1. Výpisy kontrolního příkladu (921-1 ) 

Minimalizace tabulky 

Volbou je spuštěn podprogram minimali- 
zace tabulky logické funkce. Po dobu řešení 
je zakázáno přerušení. Doba nutná k řešení 
závisí na obsahu tabulky. Akusticky jste upo- 
zorněni, jestliže program nalezl řešení. Po 
stisknutí libovolné klávesy je řešení vypiso- 
váno. Tvar výpisu bude rozebrán dále. Akus- 
tická signalizace je pozůstatkem z dřívější 
doby, je možné ji vypustit. Po ukončení 
výpisu máte možnost požádat o jeho zopa- 
kování (vhodné u delších výpisů). 

Invertování tabulky 

Volba způsobí záměnu všech prvků , ,0“ 
tabulky za „1“ a obráceně. 


3. Kontrolní příklad 

Pro ověření základních funkcí vám po- 
slouží následující kontrolní případ. Máme 
vytvořit kombinační obvod, pro který platí 
tabulka uvedená uprostřed obr. 1. Po spuš- 
tění programu zvolte ,,1 “ a potom zadávejte: 

00 01 02 03 04 05 06 07 08 09 OA OB OC OD 0E OF 

10 11 12 13 14 15 16 17 

20 21 22 23 24 25 26 27 

30 31 32 33 34 35 36 37 

F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 FA FB FC FD FE FF 

„prázdný vstup". 

Připomínám, že na pořadí zadávaných 
hodnot nezáleží, zde prezentovaný tvar vám 
zadání pouze usnadní. Pokud jste se zmýlili, 
máte možnost již popsaným postupem ta- 
bulku opravit. Na konci celého Vašeho sna- 
žení by měla být tabulka zmíněná v úvodu. 

Volbou „3“ uložte tabulku na pásku. Ověř- 
te i verifikaci dat. 

Smazáním tabulky (volba „1“ a ihned 
ENTER) obdržíte nulovou tabulku. Pomocí 
volby ,,2“ vyzkoušíte čtení z magnetofonu. 
Musíte obdržet původně vytvořenou tabulku. 

Volbou „4“ vyzkoušejte opravu tabulky 
(pokud jste tak^iž neučinili v kroku vytváře- 


ní). Zadáte např. AA 1 AA 0. Tabulka je opět 
původní. 

Volbou ,, 8“ ověřte inverzi tabulky. Aby 
bylo dosaženo stejných výsledků jako na 
obrázku, proveďte inverzi ještě jednou. 

Pokud máte připojenou tiskárnu, můžete 
ověřit tisk tabulky volbou ,,6“. Její zobrazení 
(volba ,,5“) bylo ověřeno již v mnoha před- 
chozích krocích. 

Volba „7“ způsobí, že po jisté době bude 
na váš pokyn zobrazeno řešení ve tvaru 
uvedeném v horní části obrázku 1 . 

Nakonec postupnou volbou „8“ a ,,7“ 
obdržíte výsledek v případě invertované ta- 
bulky (obr. 1 dole). 

Poznámky k tvaru výpisu logické funkce: 

Jednotlivé vstupní proměnné jsou vyjád- 
řeny znaky „A“ až ,,H“. Znak ,,/“ před 
proměnnou vyznačuje negaci proměnné na- 
příklad ,,/A“ znamená ,,ne A“, „A non“. 

Jednotlivé dílčí součiny jsou uzavřeny 
v kulatých závorkách, složené závorky uza- 
vírají celou funkci. 

Jak již bylo uvedeno, program se snaží 
šetřit čas a proto v závislosti na rozsahu 
zadání volí dvě vyjádření logické funkce. 
Druhý typ výpisu se bude někomu zdát ne- 
obvyklý. Využitím pravidel logiky je možno 
výsledek upravit na aplikaci konkrétně pou- 
žitých logických prvků. Já jsem si nechtěl 
komplikovat situaci rozšířením programu 
pro znázorňování různých variant, za hlavní 
přínos považuji především zpracování pod- 
programu minimalizace. 

Pokud bude vstupních proměnných méně 
než osm, zadejte tabulku v menším rozsahu 
termů a ve výpisu nepřihlížejte k nevyužitým 
proměnným. 

Závěrem přeji všem uživatelům mnoho 
spokojenosti při práci s tímto programem. 


Výpis 1. Hlavní program (921 -VI) 

1 REM 

2 REM *BAJT* minimalizace QMC 

3 REM 

4 LET pgm=32768 : POKE 23658,8 

5 DEF FN a< i )=PEEK <pgm+i>+25 
6*PEEK <pgm+i+l ) 

6 LET main=FN a(O) 

7 LET t=FN a<2) 

8 RESTORE 14. DIM e<16> 

9 DIM e*<16> = DIM qx<3) 

10 FOR i=l TO 16 

11 READ e ( i ) , e« ( i ) , NEXT i 

12 FOR i=l TO 8= READ qx<i> 

13 NEXT i 

14 DATA O , "0" / 1 , M l' 1 ,3, "3 1 ' , 2, “2 
" ,6, "6" , 7, "7“ ,5, "5" ,4, "4" 

15 DATA 12, "C" , 13, "D“ , 15 , "F" , 1 
4, "E" , 10, "A" ,11 , "B" 

16 DATA 9 , "9" , 8 , "8" , "A" , "B" , "C 
" , "D" , "E" , "F" , "G" , "H" 

17 LET CTRL=2: DIM Zx<8,13) 

18 FOR 1=1 TO 8: READ Zx(I) 

19 NEXT I 

20 DATA "VYTVOŘIT.- ",'* CIST Z MG 
F" , "ULOŽIT NA MGF" , "OPRAVIT" , "ZO 
BRAZ I T " , " VYT I SKNOUT " 

21 DATA "MINI MALI ZGVAT" , " INVER 
TOVAT" 

22 CLS . PRINT ' BRIGHT 1," ** 
********** BAJT ************ " 

23 PRINT AT 2,3; "PROGRAM PRAČE 
S TABULKOU" 

24 PRINT BRIGHT 1; " Zbyněk 
CALABA Praha 4 - 1988 " 

25 PLOT 0,168: DRAW 255,0 

26 DRAW 0,-25= DRAW -255,0 

27 DRAW 0,25 

28 PRINT '"TAB 1; BRIGHT 1 ; "M 4 * 

OZNOSTI PROGRAMU:"' BRIGHT O," " ■■ 



2? FOR 1=1 TO CTRL * 

30 PRINT " " ; I; u - TABULKU " ; 
2MCI): NEXT I 

31 NEXT I- 

32 PLOT 0/120: DRAW 255,0 

33 DRAW O ,-90: DRAW -255,0 

34 DRAW 0,90 

35 PRINT #0; FLASH 1; BRIGHT 1 
; "VOLTE, prosím!" 

36 BEEP .1,12 

3? LET ix=INKEY* 

38 IF i *=*••• THEN GO TO 37 

39 LET i=CODE ix 


40 

IF 

i >56 OR i <48 

THEN 

GO TO 

37 







41 

IF 

i x= " 1 " 

THEN 

GO 

SUB 51: 

GO TO 

oo 






42 

IF 

ÍH=" 2" 

THEN 

GO 

TO 

106 

43 

IF 

VAL íx 

>ctrl 

THEN 

GO TO 

37 







44 

IF 

ix="3" 

THEN 

GO 

TO 

126 

45 

IF 

iw=*'4» 

THEN 

GO 

SUB 73: 

GO TO 

22 






46 

IF 

ix=“5" 

THEN 

GO 

TO 

89 

47 

IF 

ix="6" 

THEN 

GO 

SUB 137= 

GO TO 22 





48 

IF 

ix="7" 

THEN 

GO 

TO 

171 

49 

IF 

ix=“8" 

THEN 

GO 

TO 

208 

50 

GO 

TO 37 





51 

LET 

X=1 : 

GO SUB 

214 



52 RAND0MI2E USR 33557: REM nu 
1 ováni 

53 PRINT '"Pro popis tabulky z 
adavejte term" (pozici '1' v ta 
bulce) . " 

54 PRINT '“Samotný ENTER úkone 
i vstup dat . " 

55 BEEP .05,12 

56 LET jx="Prosim term" 

57 GO SUB 113 

58 IF i >255 THEN GO TO 63 

59 LET m=PEEK (t+i) 

60 IF m = 48 THEN POKE (t+i), 
49: GO TO 55 

61 PRINT #0; "DUPLICITA! " 

62 BEEP .5,1. GO TO 55 

63 GO SUB 90 

64 BEEP .1,5: BEEP .1,9 

65 BEEP .1,12 

66 INPUT "V pořádku (A/N)?",ix 

67 IF Ix=“A" THEN LET ctrl=8: 
GO TO 22 

68 IF Ix<>“N“ THEN BEEP .5,1: 
GO TO 64 

69 BEEP .1,12 

70 INPUT “Opravit - znova (0/2 
>.?" , iw 

71 IF Ix="Z" THEN GO TO 51 

72 IF lx<>"0“ THEN BEEP .5,1: 
GO TO 69 

73 LET X=4: GO SUB 214 

74 PRINT '"Samotný ENTER úkone 
i vstup dat . " 

75 PRINT AT 19,0;" 

76 BEEP .©5,12 

77 LET jx="Pozice v tabulce" 

78 GO SUB 113: LET j=i 

79 IF i >255 THEN GO TO 63 

80 LET m=PEEK (t+j) 

81 PRINT AT 19,0; "TAB( " ; ix; " )= 
" ; CHRx m 

82 BEEP .05,12 

83 LET jx="Nova hodnota" 

84 GO SUB 113 

85 IF i =999 THEN, LET i=0 

86 POKE ( t+ j ) ,48+ i 

87 IF i <0 OR i >1 THEN BEEP .5 
,1: GO TO 83 

88 GO TO 75 

89 GO SUB 90: GO TO 123 

90 LET X=5: GO SUB 214 

91 PRINT '" "; : FOR 1=1 TO 16 

92 PRINT BRIGHT l;Ex(I>; 

93 NEXT I 

94 PRINT : FOR 1=0 TO 15 

95 PRINT BRIGHT l;Ex(I+l); 

96 FOR J=0 TO 15 

97 LET M=PEEK ( t+e( J+l )+16*e( I 
+ 1 ) ) 

98 PRINT CHRx m; 

99 NEXT j: PRINT : NEXT I 


100 RETURN 

101 PRINT #0/ "Stop MGF, prosím! 
PAUSE 235= RETURN 

102 INPUT “Jméno tabulky (maz. 

6 znaku) : “ , ix 

103 IF LEN ix>6 THEN BEEP .5,1 
= GO TO 102 

104 IF LEN ix«0 THEN RETURN 

105 LET ix=ix+“ .TAB" , RETURN 

106 LET X=2: GO SUB 214 

107 GO SUB 102 

108 PRINT AT 3, ©;" Jméno « ";ix 

109 PRINT #0;"Prosim magnetofon 

! " 

110 LOAD ixCODE t,256 

111 GO SUB 101 

112 LET ctrl=8: GO TO 22 

113 INPUT (jx+“ <hex).">,ix 

114 IF LEN ix=© THEN LET i«999 
: RETURN 

115 LET ix= u O"+ix 

116 IF LEN ix>2 THEN LET ix=ix 
(2 TO ): GO TO 116 

117 LET k=CODE ix(l): LET 1-COD 
E ix(2> 

118 LET e«k - ( 48+ ( k >57 ) *39 ) 

119 LET k»e+( (e<0>*32) 

120 LET e=l-< 48+( 1>57)*39) 

121 LET l=e+( (e<0)*32) 

122 LET i=16*k+l: RETURN 

123 BEEP .1,12 

124 INPUT "Prosím ENTER! "/ix 

125 GO TO 22 

126 LET X«3: CO SUB 214 

127 GO SUB 102 

128 IF LEN ixOO THEN GO TO 13 

1 

129 PRINT #0; “Tabulka musí mít 
jméno ! " 

130 BEEP .5,1: CO TO 127 

131 PRINT " "Jméno = “;ix 

132 SAVÉ ixCODE t,256 

133 INPUT "Verifikovat <A)?“,jx 

134 IF jx<>"A" THEN CO TO 22 

135 PRINT “Verifikace dat 
VERIFY ixCODE t,256 

136 PRINT "Data o.k." : GO TO 12 
3 

137 LET X=6: GO SUB 214 

138 GO SUB 153 

139 LPRINT '“ 

140 FOR 1=1 TO 16. 

141 LPRINT Ex ( I ) ; " " ; 

142 NEXT I, LPRINT 

143 LPRINT " "; 

144 FOR 1=0 TO 15: LPRINT 

145 NEXT I. LPRINT 

146 FOR 1*0 TO 15 

147 LPRINT Ex(I+l);»: 

148 FOR J=© TO 15 

149 LET M=PEEK ( t+e< J+l >+16*e< I 
+ 1 )) 

150 LPRINT m-48," 

151 NEXT j: LPRINT : NEXT I 

152 RETURN 

153 INPUT "Nadpis sestavy: “,jx 

154 LPRINT jx : LPRINT 

155 RETURN 

156 CLEAR 32767 

157 PRINT "AUTOSAVE-CO TO 160“ 

158 LOAD “proba j t “CODE 32768,18 
00: RUN 

159 REM autosave programu 

160 CLEAR : SAVÉ “BAJT" LINE 15 

6 

161 SAVÉ "proba jt “CODE 32768,18 
00 

162 STOP = GO TO 1 

163 PRINT ""JDE O TRIVIÁLNÍ RE 
SENI " 

164 BEEP .05,5: BEEP .5,9 

165 BEEP .05,5 

166 PAUSE 255: GO TO 22 

167 BEEP 1,1 

168 PRINT " “Zjištěna chyba pr 
ogramu . " 

169 PRINT "Doporučuji nahrat pr 
ogram znovu . “ 

170 PRINT "a před reklamaci opa 
kovat": PAUSE O: G0 # >0 22 


171 LET X=7: CO SUB 214 

172 PRINT ""Cekejte, prosím!"' 
""Doba řešeni zavisi na slozito 
sti " 

173 PRINT "tabulky. Rašeni ohla 
sim! " 

174 RANDOMIZE USR main 

175 LET od=FN a (4) 

176 LET do=ÉN a<6) 

177 LET rc=PEEK (pgm+8) 

178 IF rc=l THEN GO TO 163 

179 IF rc=3 THEN GO TO 181 

180 IF rc<>0 THEN GO TO 167 

181 CLS : PRINT " FLASH 1; BRI 
GHT 1;"R E S E N I !" 

182 PRINT BRIGHT 1" "Stisknete 

klávesu. “ 

183 BEEP .05,5: BEEP .05,9 

184 IF INKEYx«"“ THEN GO TO 18 
3 


185 IF rc-3 THEN GO TO 201 

186 CLS , PRINT BRIGHT 1;"L0GI 
CKA FUNKCE (OR-AND):": PRINT 

187 PRINT GO SUB 191. PRI 

NT “>" 

188 GO SUB 211 

189 IF ix="A“ THEN GO TO 186 

190 GO TO 22 

191 LET i=od: PRINT " (“; 

192 LET j«PEEK (i+1) 

193 FOR k-1 TO 8: LET j*PEEK ( i 
+k ) 


194 IF j=45 THEN GO TO 197 

195 IF j*48 THEN PRINT "/";qx< 
k);. GO TO 197 

196 IF j=49 THEN PRINT “ “;qx( 
k) ; 


197 NEXT k: PRINT •>» 

198 LET i=i+10 

199 IF iOdo THEN PRINT "+(“/: 
GO TO 193 

20© RETURN 


201 CLS : PRINT BRIGHT 1;"L0GI 
CKA FUNKCE (NOR-AND):" 

202 PRINT .- PRINT BRIGHT !;"/< 


203 GO SUB 191 

204 PRINT BRIGHT 1;“ >“ , BEEP 


.05,12 

205 GO SUB 211 

206 IF iX*"A" THEN GO TO 201 

207 RANDOMIZE USR 33572. GO TO 


22 

208 LET X=8: GO SUB 214 

209 RANDOMIZE USR 33572: PAUSE 
10 ‘ 


210 GO TO 89 

211 INPUT "Opakovat vypiš resen 
i (A>? ";ix 

212 RETURN 

213 BEEP .1,12: CLS . RETURN 

214 GO SUB 213. PRINT BRIGHT 1 
; “TABULKU ";zx< x > 

215 RETURN 


Výpis 2. Podprogram (921 -V2) 


Vypiš s 

kontrolou 




8000 

09 

80 

00 

84 

3B 

88 

4F 

88:79 

8008 

03 

F3 

FD 

22 

00 

88 

21 

00:86 

8010 

34 

7E 

2C 

28 

05 

BE 

20 

07:62 

8018 

18 

F8 

3E 

01 

C3 

5E 

82 

AF-.6F 

8020 

32 

08 

80 

21 

00 

84 

01 

00 .- 1E 

8028 

00 

3E 

31 

BE 

20 

01 

04 

23 ;B7 

8030 

OD 

20 

F8 

3E 

80 

B8 

30 

IC.FF 

8038 

3E 

03 

32 

08 

80 

21 

00 

84:22 

8040 

01 

31 

30 

7E 

B8 

20 

03 

71:94 

8048 

18 

05 

B9 

C2 

57 

82 

70 

23 : EO 

8050 

2C 

2D 

20 

EF 

21 

00 

00 

22 : CD 

8058 

37 

88 

22 

39 

88 

3E 

01 

B8 : AB 

8060 

28 

B8 

AF 

32 

00 

87 

01 

FF =74 

8068 

00 

11 

01 

87 

21 

00 

87 

ED.DC 

8070 

BO 

21 

3B 

88 

22 

04 

80 

22 : A6 

8078 

06 

80 

11 

00 

84 

1A 

FE 

31:C6 

8080 

20 

09 

21 

00 

86 

6B 

6E 

26: AD 

8088 

87 

36 

FF 

13 

1C 

ID 

20 

ED:91 

8090 

li' 

00 

87 

2A 

06 

80 

1A 

3C:1C 

8098 

20 

26 

D5 

16 

85 

1A 

01 

08:53 

80A0 

00 

E5 

23 

07 

F5 

38 

04 

3E:36 

80A8 

30 

18 

03 

3E 

31 

04 

77 

23 = 74 


80BG F1 OD 20 EF AF 77 El ?0:?A 
80B8 01 OA 00 09 22 06 80 Dl. 77 
80C0 13 1C ID 20 Dl CD C6 32. 6A 
80C8 FE 00 C2 57 82 2A 06 80 .-45 
80D0 22 08 88 22 06 88 3É 08:38 
80D8 F5 FB 3E 7F DB FE 1F 38.4D 
80E0 03 C3 56 82 F3 ED 4B 06:47 
80E8 30 2A 04 80 CD 67 82 CA.CC 
80F0 56 82 3E 08 11 13 88 ED:85 
80F8 53 02 88 F5 2A 02 88 7E:F2 
8100 23 B6 CA FD 81 23 7E 23:5D 
8108 B6 CA FD 81 DD 2A 02 88:7D 
8110 QD 6E 00 DD 66 01 E5 DD:31 
8118 2A 02 38 DD 5E 02 DD 56:AA 
8120 03 D5 E5 D5 E5 D5 AF 08=71 
8128 AF 32 OA 38 11 OB 88 D5=58 
8130 23 DD El 01 08 00 ED B0=4B 
8138 OE 08 Dl El E5 D5 EB DD=30 
8140 2B 13 23 DD 23 1A BE 28=69 
8148 15 08 3C FE 02 28 21 08=DC 
8150 FE 2D 28 18 3E 2D BE 28=66 
8158 05 DD 77 00 18 OE DD 7E.1A 
8160 00 FE 31 20 07 3A OA 38=50 
8168 3C 32 OA 88 OD 20 D2 08=7B 
8170 DD El FD El FE 01 20 53=AC 
8178 3E FF DD 77 09 FD 77 09= El 
8180 E5 D5 C5 ED 4B 08 38 2A=F9 
8188 06 38 CD 67 32 28 23 22=8F 
8190 04 88 OE 09 11 OA 38 1A=02 
8198 BE 20 07 13 23 OD 20 F7=73 
81A0 18 26 01 OA 00 2A 04 88=93 
81A8 09 ED 4B 03 38 CD 67 32=07 
81B0 20 DD 2A 08 88 E5 01 0A=B9 
81B8 00 09 22 08 88 Dl 01 09=72 
81 CO 00 21 OA 88 ED BO AF 12=43 
81C8 Cl Dl El Dl El Dl EB DD=26 
81D0 2A 02 88 DD 46 15 DD 4E=BD 
81D8 14 CD 67 32 28 08 01 0A=17 
81E0 00 09 EB C3 21 81 El DD =BD 
81E8 2A 02 88 DD 46 13 DD 4E=BB 
81F0 12 CD 67 82 28 07 01 OA = 1E 
81F8 00 09 C3 16 31 CD 8F 82=9D 
8200 F1 2A 02 38 23 23 22 02=71 
8208 38 3D C2 FB 80 CD 8F 82=CC 
8310 2A 06 30 ED 5B 04 80 37=A9 
8218 3F ED 52 E5 Cl 2A 08 88=0E 
8220 ED 5B 06 38 37 3F ED 52=3F 
8228 CD 67 82 20 18 2A 04 30=BE 
8230 ED 5B 06 88 ED 4B 06 80=18 
8238 1A BE 20 09 23 13 CD 67=17 
8240 82 28 18 18 F3 CD 6D 82=7B 
8248 CD C6 32 FE 00 20 07 F1 = AI 
8250 3D C2 D8 80 18 01 El 3E=61 
8258 02 18 03 F1 18 03 32 08=C9 
8260 30 FD 2A 00 88 FB C9 7C=91 
8268 B8 CO 7D B9 C9 ED 4B 06=D5 
8270 88 C5 ED 5B 04 80 2A 08=5D 
8278 88 37 3F ED 42 E5 Cl El = EA 
8280 ED BO ED 53 06 38 ED 53=D3 
8288 06 30 ED 53 08 88 C9 DD = AC 

829© 2A 02 88 DD 6E 00 DD 66=A8 

8298 01 7D B4 C8 E5 FD El 3E=C7 

82 AO FF FD BE 09 28 10 ED 5B=3B 

82A8 08 88 01 OA 00 ED BO ED = 3B 

82B0 53 08 38 FD E5 El DD 46.B1 

82B8 13 DD 4E 12 CD 67 82 C8=72 

82C0 11 OA 00 19 18 D6 FD E5=D4 

82C8 DD 21 11 88 FD 21 23 38=12 

82D0 21 13 88 AF 77 E5 Dl 13=45 

82D8 01 24 00 ED BO 2A 04 30=D6 

82E0 11 OA 00 ED 4B 06 80 3E=05 

82E8 FF 08 08 BE 28 16 DD 23=81 

82F0 DD 23 FD 23 FD 23 3C FE=3C 

82F8 09 28 17 BE 20 FO DD 75=F0 

8300 00 DD 74 01 FD 75 00 FD = DD 

8308 74 01 08 19 CD 67 32 20=6C 
8310 D9 AF FD El C9 3E 30 21=3C 
8318 00 84 E5 Dl 13 77 01 FF = 2A 
8320 00 ED BO C9 21 00 34 01 = 30 
8328 31 30 7E B8 20 03 71 13=SD 
8330 01 70 23 2C 2D 20 F3 C9 = 49 
8338 00 00 00 00 00 00 00 00=00 
8340 OO 00 00 00 00 00 00 00=00 
8348 OO 00 00 00 00 00 00 00=00 
8350 00 00 00 00 00 00 00 00=00 
8358 00 00 00 00 00 00 00 00=00 
8360 00 CD 3C 82 00 00 2A 06=EF 

8368 80 C3 10 82 00 00 00 00= Dl 
837© 00 00 00 00 00 00 00 00=00 
8378 00 00 OO 00 00 00 00 00=00 
838© 00 00 00 00 00 00 00 00=00 
8388 00 00 00 00 00 00 00 00=00 


8390 

0© 

00 

00 

00 

00 

00 

00 

00.00 

8398 

00 

00 

00 

00 

00 

00 

00 

00.00 

83A© 

00 

00 

00 

00 

00 

00 

00 

00.00 

83A8 

00 

00 

00 

00 

00 

00 

00 

00.00 

83B0 

00 

00 

00 

00 

00 

00 

00 

00:00 

83B8 

00 

00 

00 

00 

00 

00 

00 

00 = 00 

83C0 

00 

00 

00 

00 

00 

00 

00 

00:00 

83C8 

00 

00 

00 

00 

00 

00 

00 

00.00 

83D0 

00 

00 

00 

00 

00 

00 

00 

00:00 

83D8 

00 

00 

00 

00 

00 

00 

00 

00.00 

83E0 

00 

00 

00 

00 

00 

00 

00 

00:00 

83E8 

00 

00 

00 

00 

00 

00 

00 

00.00 

83F0 

00 

00 

00 

00 

00 

00 

00 

00:00 

83F8 

00 

00 

00 

00 

00 

00 

00 

00:00 


Výpis 3. Tabulka (921 -V3) 

Vypiš s kontrolou 


8500 

00 

01 

02 

04 

08 

10 

20 

40 = 7F 

8508 

80 

03 

05 

06 

09 

OA 

OC 

11 : 9E 

8510 

12 

14 

18 

21 

22 

24 

28 

30:21 

8518 

41 

42 

44 

48 

50 

60 

81 

82 : 3C 

8520 

84 

88 

90 

AO 

CO 

07 

OB 

OD: FD 

8528 

OE 

13 

15 

16 

19 

1A 

1C 

23.22 

8530 

25 

26 

29 

2A 

2C 

31 

32 

34:1B 

8538 

38 

43 

45 

46 

49 

4A 

4C 

51:66 

8540 

52 

54 

58 

61 

62 

64 

68 

70:21 

8548 

83 

85 

86 

89 

8A 

8C 

91 

92. OC 

8550 

94 

98 

AI 

A2 

A4 

A8 

BO 

Cl. 72 

8558 

C2 

C4 

C8 

DO 

EO 

OF 

17 

1B.FD 

8560 

ID 

1E 

27 

26 

2D 

2E 

33 

35. OA 

8568 

36 

39 

3A 

3C 

47 

4B 

4D 

4E.06 

8570 

53 

55 

56 

59 

5A 

5C 

63 

65.09 

8578 

66 

69 

6A 

6C 

71 

72 

74 

78.06 

8580 

87 

8B 

8D 

8E 

93 

95 

96 

99.06 

8588 

9A 

9C 

A3 

A5 

A6 

A9 

AA 

AC.09 

8590 

B1 

B2 

B4 

B8 C3 

C5 

C6 

C9.06 

8598 

CA 

CC 

Dl 

D2 

D4 

D8 

El 

E2=0A 

85A0 

E4 

E8 

FO 

IF 

2F 

37 

3B 

3D.FD 

85A8 

3E 

4F 

57 

5B 

5D 

5E 

67 

6B.72 

85B0 

6D 

6E 

73 

75 

76 

79 

7A 

7C.0C 

85B8 

8F 

97 

9B 

9D 

9E 

A7 

AB 

AD: 21 

85C0 

AE 

B3 

B5 

B6 

B9 

BA 

BC 

C7.66 

85C8 

CB 

CD 

CE 

D3 

D5 

D6 

D9 

DA.1B 

85D0 

DC 

E3 

E5 

E6 

E9 

EA 

EC 

F1.22 

85D8 

F2 

F4 

F8 

3F 

5F 

6F 

77 

7B.FD 

85E0 

7D 

7E 

9F 

AF 

B7 

BB 

BD 

BE.3C 

85E8 

CF 

D7 

DB 

DD 

DE 

E7 

EB 

ED:21 

85F0 

EE 

F3 

F5 

F6 

F9 

FA 

FC 

7F.9E 

85F8 

BF 

DF 

EF 

F7 

FB 

FD 

FE 

FF :7F 

8600 

00 

01 

02 

09 

03 

OA 

OB 

25. 2D 

8608 

04 

OC 

OD 

26 

OE 

27 

28 

5D.7F 

8610 

05 

OF 

10 

29 

11 

2A 

2B 

5E.7D 

8618 

12 

2C 

2D 

5F 

2E 

60 

61 

A3.C0 

8620 

06 

13 

14 

2F 

15 

30 

31 

62.58 

8628 

16 

32 

33 

63 

34 

64 

65 

A4.E5 

8630 

17 

35 

36 

66 

37 

67 

68 

A5.EF 

8638 

38 

69 

6A 

A6 

6B 

A7 

A8 

DB. 22 

8640 

07 

18 

19 

39 

1A 

3A 

3B 

6C.48 

8648 

1B 

3C 

3D 

6D 

3E 

6E 

6F 

A9.E1 

8650 

1C 

3F 

40 

70 

41 

71 

72 

AA.FB 

8658 

42 

73 

74 

AB 

75 

AC 

AD 

DC . 46 

8660 

ID 

43 

44 

76 

45 

77 

78 

AE = 86 

8668 

46 

79 

7A 

AF 

7B 

BO 

B1 

DD.4D 

8670 

47 

7C 

7D 

B2 

7E 

B3 

B4 

DE.53 

8678 

7F 

B5 

B6 

DF BÝ 

EO 

El 

F7.E2 

8680 

08 

1E 

IF 

48 

20 

49 

4A 

80.E2 

8688 

21 

4B 

4C 

81 

4D 

82 

83 

B8 : 53 

8690 

22 

4E 

4F 

84 

50 

85 

86 

B9.4D 

8698 

51 

87 

88 

BA 

89 

BB 

BC 

E2.88 

86A0 

23 

52 

53 

8A 

54 

8B 

8C 

BD = 46 

86A8 

55 

8D 

8E 

BE 

8F 

BF 

CO 

E3.FB 

86B0 

56 

90 

91 

Cl 

92 

C2 

C3 

E4.E1 

86B8 

93 

C4 

C5 

E5 

C6 

E6 

E7 

F8.48 

86C0 

24 

57 

58 

94 

59 

95 

96 

C7 = 22 

86C8 

5A 

97 

98 

C8 

99 

C9 

CA 

E8.EF 

86D0 

5B 

9A 

9B 

CB 

9C 

CC 

CD 

E9.E5 

86D8 

9D 

CE 

CF 

EA 

DO 

EB 

EC 

F9.58 

86E0 

5C 

9E‘ 9F 

Dl 

AO 

D2 

D3 

ED . CO 

86E8 

AI 

D4 

D5 

EE 

D6 

EF 

FO 

FA. 7D 

86F0 

A2 

D7 

D8 

F1 

D9 

F2 

F3 

FB.7F 

86F8 

DA 

F4 

F5 

FC 

F6 

FD 

FE 

FF = 2D 


Výpis 4. Program ,, HEXLOAD “ (921 -V4) 


1 REM ****#******#*#***konec 

2 FOR i =23760 TO 23776 

3 READ a= POKE i, a. NEXT i 


4 DATA 175/50.224,92/201/58 

5 DATA 224,92/79/58,223,92 

6 DATA 169,24/242/0,0 

7 POKE 23658,8 

8 POKE 23609,120 

9 DIM B<8> 

10 INPUT "ADRESA <HEX)=",Ax 

11 IF LEN A*<4 THEŇ LET Ax="0 
"+Ax= GO TO 11 

12 IF LEN Ax>4 THEN LET Ax=Ax 
(2 TO ) = GO TO 12 

13 LET 1=1= GO SUB 48 

14 IF D<0 OR D>255 THEN GO TO 
10 

15 LET A=256*D 

16 LET 1=3. GO SUB 48 

17 IF D<© OR D>255 THEN GO TO 
10 

18 LET A=A+D 

19 CLS = PRINT "ADRESA: “;Ax;“ 
= “ ;A 

20 LET A=A-1 

21 INPUT " DATA 

- U/ Ax= LET K=0 

22 IF LEN Ax=0 THEN STOP 

23 IF LEN Ax<>19 THEN GO TO 4 
5 

24 IF Ax( 17) O" " THEN GO TO 
45 

25 FOR 1=1 TO LEN Ax-4 STEP 2 

26 GO SUB 48 

27 IF D<0 OR D>255 THEN GO TO 
45 

28 LET K=K+1= LET B<K)=D 

29 NEXT I 

30 REM KONTROLNÍ SUMA 

31 LET 1=18= GO SUB 48 

32 IF D<0 OR D>255 THEN GO TO 
45 

33 REM TEST 

34 RANDOMIZE USR 23760 

35 FOR 1=1 TO 8 

36 POKE 23775 , B ( I ) 

37 RANDOMIZE USR 23765 

38 NEXT 1= LET I=PEEK 23776 

39 IF IOD THEN GO TO 45 

40 REM ULOŽIT 

41 FOR 1=1 TO 8 

42 POKE ( A+I ) ,B( I ) 

43 NEXT 1= LET A=A+9 

44 GO SUB 51= GO TO 20 

45 PRINT Ax'” . . . CHYBA! " 

46 BEEP 1/1= GO TO 21 

47 REM CTĚNI HEX 

48 LET D= ( ( CODE Ax( I )-(48+(C0D 
E Ax(I)>57)*7) ) )*16 

49 LET D=D+( (CODE Ax(I+l)-(48+ 
(CODE AX(I+1>>57>*7) > > 

50 RETURN 

51 CLS = PRINT “ADRESA. ", 

52 LET D-INT < A/2561 

53 GO SUB 57 

54 LET D=A-256*D 

55 GO SUB 57 

56 PRINT " = "/A: RETURN 

57 LET Ax*"" 

58 LET A1=INT (D/16) 

59 LET A2=D-16*A1 

60 LET Ax=CHRx <48+Al+< CA1>9> 
*7) ) 

61 LET Ax*Ax+CHRx < 48+A2+ < < A2 
>9) *7) ) 

62 PRINT Ax; = RETURN 


Výpis 5. Program ,,HEXDUMP“ (921 -V5) 


1 REM #*##**********4**konec 

2 POKE 23658,8 

3 POKE 23609,120 

4 PRINT "Vypiš s kontrolou" 

5 FOR 1=23760 TO 23776 

6 READ A= POKE I,A= NEXT I 

7 DATA 175,50,224/92/201/58 

8 DATA 224/92/79,58/223,92 

9 DATA 169,24,242/0/0 

10 POKE 23658,8= POKE 23609,1 

11 INPUT "START(HEX) ,Ax 

12 GO SUB 40 

13 IF A<© THEN BEEP 1,1= GO T 
O 11 


14 LET Q1=A 

15 INPUT "STOP <HEX):“;Aw 

16 GO SUB 40 

17 IF A<© THEN BEEP 1,1 : GO 
O 15 

18 LET Q2=A 

19 FOR I=Q1 TO <32 STEP 8 

20 RANDOMIZE USR 23760 

21 LET A=INT (1/256) 

22 GO SUB 33 

23 LET A=I-256*A: GO SUB 33 

24 FOR J=0 TO 7 

25 LET A=PEEK (I+J) 

26 POKE 23775, A 

27 RANDOMIZE USR 23765 

28 PRINT " " ; : GO SUB 33 

29 NEXT J: PRINT “ : “ ; 

30 LET A=PEEK 23776 

31 GO SUB 33= PRINT 

32 NEXT I: STOP 

33 LET Ak="” 

34 LET A1=INT (A/16) 

35 LET A2=A-16*A1 


36 LET Ax=CHRx ( 48+A1+ ( ( Al>9>* 
7) ) 

37 LET Ax=Ax+CHRx (48+A2+((A2> 
9) *7) ) 

38 PRINT A x; 

39 RETURN 

40 IF LEN Ax<4 THEN LET Ax="0 
"+AX: GO TO 40 

41 IF LEN Ax>4 THEN LET Ax=Ax 
(2 TO ) , GO TO 41 

42 LET 1=1. GO SUB 48 

43 GO SUB 47 

44 LET A=256*D: LET 1=3 

45 GO SUB 48: LET A=A+D 

46 GO SUB 47: RETURN 

47 IF D<0 OR D>255 THEN LET 
A=— 1 : RETURN 

48 LET D=< (CODE ax( i )-(48+(C0 
DE a«( i ) >57) *7) ) >*16 

49 LET D=D+ ( ( CODE ax(i+l)-(48 
+ ( CODE ax( i+l)>57)*7) ) ) 

50 RETURN 


PRIZ -adresa obsahuje příznak, který 
určuje přesné místo zápisu, resp. 
čtení, které bude použito (viz 

obr. 1). 

Při stálém zapisování resp. čtení si pro- 
gram obsahy ADR a PRIZ mění sám. Když 
použijete konstantní obsah SLOVO, stačí 
vkládat délku a použitou tabulku. Při zapiso- 
vání, resp. čtení z prostředka (třídění, vyhle- 
dávání, přerušené vkládání) můžete využít 
algoritmus pro výpočet adresy a příznaku. 
Obecně vypočítáme K-tou položku l-té věty 
(viz obr. 2). 

Hlavní výhody programu: 

- maximální využití paměti, 

- šetří 38% paměti, 

- pro zpracování je přístupno větší množ- 
ství dat. 

Nevýhody: 



Martin Preisler, Rudé armády 684, 293 01 Mladá Boleslav 

Při vytváření databází jsem začal přemýšlet jak do paměti SPECTRA 
vložit více dat, aniž bych rozšiřoval paměť. Nejdříve jsem zkrátil 
program, ale moc místa jsem tím neušetřil. Pak jsem si uvědomil, že 
délka jednoho ASCII znaku je 8 bitů, přičemž všechny nejsou využity 
(stačí si prohlédnout tabulku ASCII). 


Proto jsem se rozhodl vytvořit nový znako- 
vý soubor - ve zkrácené formě. Nazval jsem 
jej MDAT (minidata). Abych ušetřil co největ- 
ší prostor paměti, zvolil jsem jako délku 
jednoho znaku 5 bitů. To umožňuje ale pou- 
ze 32 znaků. Rozdělil jsem tedy údaje v data- 
bankách na nenumerické (skládají se z pís- 
men A-Z, čárky, tečky, mezery, dvojtečky, 
pomlčky, apostrofu) a číselné. To vyžaduje 
dvojí sadu znaků. 

Třicet dva číslic neexistuje, proto jsem 
číselné znaky doplnil matematickými operá- 
tory (krát, plus, mínus, lomeno, šipka, levá 
a pravá závorka, desetinná tečka), některý- 
mi funkcemi vkládanými v rozšířeném módu 
(COS, INT, ABS, SIN, SQR, LN, EXP, Pl, 
ASN, ACS) a písmeny (A, B, C, E). Což 
umožní uchovávat nejrůznější vzorce pro 
proměnné A, B, C (E označuje exponent) 
a při použití funkce VAL získat přímo hodno- 
ty- 

Pak jsem musel vymyslet program, který 
by normální ASCII znaky převáděl do paměti 
jako MDAT a naopak. Aby byl program rych- 
lý, vytvořil jsem ho ve strojovém kódu mikro- 
procesoru Z80. Vycházel jsem z obr. 1. 
Takto uložených 8 znaků by se stále opako- 
valo. Proto jsem rozdělil program na 16 částí 
(8 pro zápis do paměti a 8 pro čtení) podle 
příznaku. Program jsem se snažil maximál- 
ně zjednodušit. Znaky, které nejsou v dané 


tabulce znaků, program přepíše na (mí- 
nus). Významy některých symbolů: 

ZAPIŠ -adresa začátku programu pro 
zápis dat; 

PŘEČTI -adresa začátku rutiny pro čtení 
dat; 

TAB -adresa obsahuje adresu použí- 
vané tabulky nově vytvořených 
znaků. V mém případě PÍSMO 
(nenumerické znaky) - adresa 
TAB+357 a CISLA (numerické) 
= adresa TAB+421. Tabulku si 
můžete vytvořit svou vlastní 
(i více), ale zachovávejte pořadí 
- znak, kód, posledním znakem 
musí být mínus; 

SLOVO -adresa obsahuje adresu, z které 
se při zápisu bude číst ASCII řetě- 
zec a na kterou se při čtení bude 
zapisovat ASCII řetězec; 

DÉLKA -adresa obsahuje délku řetězce, 
z toho vyplývá omezení pro délku 
na 255 znaků; 

ADR -adresa obsahuje adresu, na kte- 
rou se bude zapisovat, nebo ze 
které se bude číst; 


1. byte 2. byte 3. byte 4. byte 5. byte 


r T T T T 1 

L 







































c 

L 

1. znak 

\J_znak_ 

3. znak 

4. znak 

5. znak 

6. znak 

7. znak 

8. znak 


příznak: 1 4 7 10 13 16 19 22 


- pomalejší proces čtení, zápisu a vyhledá- 
vání (pomalejší neznamená 'pomalý, ča- 
sové ztráty jsou vcelku zanedbatelné), 

- nemožnost použití číslic a písmen v jed- 
nom údaji. 



Obr. 2. Algoritmus pro výpočet adresy a pří- 
znaku (919-2) 

(D(J) - délka J-tého údaje. PADR - první adresa 
datového souboru, P - příznak, A - adresa pro zápis- 
-čtení znaku). 


Výpis 1. Zdrojový text programu (919-V1) 


919-V1 


TAB 

64000 

SLOVO 

TAB+2 

ADR 

TAB+4 

DÉLKA 

TAB+6 

PRIZ 

TAB+7 

ORG 

TAB+8 

CALL 

ZAC 

POSH 

BC 

LD 

C,(HL) 

POSH 

HL 

LD 

HL f (TAB) 

CALL 

NAJDI 

INC 

HL 

'LD 

C# (HL) 

LD 

HL, (ADR) 

LD 

A, (HL) 


Obr. 1. Princip ukládání znaků (919-1) 






LD 

IX,A2+1 


RL 

B 


DEC 

HL 

DEFB 

'B',1 


ADD 

IX, DE 


ADD 

A,C 


LD 

A, (HL) 

DEFB 

'C',2 

A2 

JP 

(IX) 


LD 

(HL),A 


POP 

HL 

DEFB 

'D',3 


JP 

Z1 


INC 

HL 


LD 

(HL) ,A 

DEFB 

'E',4 


JP 

Z2 


LD 

A, (HL) 


INC 

HL 

DEFB 

'F',5 


JP 

Z3 


AND 

1111110B 


POP 

BC 

DEFB 

'G',6 


JP 

Z4 


ADD 

A,B 


DJNZ 

B1 

DEFB 

'H',7 


JP 

Z5 


JP 

A3 


LD 

HL,PRIZ 

DEFB 

'I* ,8 


JP 

Z6 

Z6 

AND 

11000001B 


LD 

(HL) ,E 

DEFB 

'J',9 


JP 

Z7 


RLC 

c 


RET 


DEFB 

•K 1 ,10 


JP 

Z8 


ADD 

A,C 




DEFB 

1 L' ,11 

A3 

LD 

(ADR) ,HL 


JP 

A4 

ZAC 

LD 

D,00H 

DEFB 

•M' ,12 

A4 

LD 

(HL) ,A 

Z7 

AND 

00111U1B 


LD 

A, (DÉLKA) 

DEFB 

1 N' ,13 


INC 

E 


LD 

B,A 


LD 

B,A 

DEFB 

'0' ,14 


INC 

E 


LD 

A,00H 


LD 

HL,PRIZ 

DEFB 

'P' ,15 


INC 

E 


RR 

C 


LD 

E,(HL) 

DEFB 

'Q',16 

A5 

POP 

HL 


RRA 



LD 

HL, (SLOVO) 

DEFB 

'R' ,17 


INC 

HL 


RRC 

C 


RET 


DEFB 

•S' ,18 


POP 

BC 


RRA 





DEFB 

1 T' ,19 


DJNZ 

AI 


ADD 

A,B 

NAJDI 

LD 

A, (HL) 

DEFB 

'0' ,20 


LD 

HL,PRIZ 


LD 

(HL),A 


CP 

45 

DEFB 

'V', 21 


LD 

(HL),E 


LD 

A,C 


RET 

Z 

DEFB 

•W ,22 


RET 



AND 

00000111B 


CP 

C 

DEFB 

‘X 1 ,23 

Z1 

AND 

11100000B 


LD 

B,A 


RET 

Z 

DEFB 

1 Y* ,24 


ADD 

A,C 


INC 

HL 


INC 

HL 

DEFB 

•Z' ,25 


JP 

A4 


LD 

A, (HL) 


INC 

HL 

DEFB 

' ',26 

Z2 

AND 

00011111B 


AND 

11111000B 


JP 

NAJDI 

DEFB 

' : ' ,27 


LD 

B,A 


ADD 

A,B 

C2 

INC 

HL 

DEFB 

* . 1 ,28 


LD 

A,C 


JP 

A3 


LD 

B, (HL) 

DEFB 

',',29 


LD 

C,00H 

Z8 

AND 

00000111B 


RR 

B 

DEFB 

'"',30 


RLCA 



RLC 

C 


RRA 


DEFB 

'-',31 

— 

RLA 



RLC 

C 

C52 

RR 

B 




RLA 



RLC 

C 


RRA 





RLA 



ADD 

A,C 


RRA 


CISLO DEFB 

0,0 


RL 

C 


LD 

(HL),A 


RRA 


DEFB 

1,1 


RLCA 



INC 

HL 


RRA 


DEFB 

2,2 


RL 

C 


LD 

(ADR) ř HL 


JP 

B2 

DEFB 

3,3 


AND 

11100000B 


LD 

E,01H 

C3 

RRA 


DEFB 

4,4 


ADD 

A,B 


JP 

A5 

C6 

RRA 


DEFB 

5,5 


LD 

(HL) , A 





JP 

B3 

DEFB 

6,6 


INC 

HL 

PŘEČTI 

CALL 

ZAC 

C4 

RLCA 


DEFB 

7,7 


LD 

A, (HL) 

B1 

PUSH 

BC 


INC 

HL 

DEFB 

8,8 


AND 

U111100B 


POSH 

HL 


LD 

A,(HL) 

DEFB 

9,9 


ADD 

A,C 


LD 

HL,(ADR) 


RLA 


DEFB 

'*',10 


JP 

A3 


LD 

Af(HL) 


JP 

B2 

DEFB 

'•Ml 

Z3 

AND 

10000011B 


LD 

IX,XX+1 

C5 

INC 

HL 

DEFB 

'+',12 


RLC 

C 


ADD 

IX, DE 


LD 

B,(HL) 

DEFB 

1 1 ,13 


RLC 

C 

XX 

JP 

(IX) 


JP 

C52 

DEFB 

V ,14 


ADD 

A,C 


JP 

B3 

C7 

INC 

HL 

DEFB 

'(',15 


JP 

A4 


JP 

C2 


LD 

B, (HL) 

DEFB 

1 )' ,16 

Z4 

RLCA 



JP 

C3 


RLCA 


DEFB 

'A', 17 


RR 

C 


JP 

C4 


RL 

B 

DEFB 

'B* ,18 


RRA 



JP 

C5 


RLCA 


DEFB 

'C' ,19 


LD 

(HL) , A 


JP 

C6 


RL 

B 

DEFB 

'E' ,20 


INC 

HL 


JP 

C7 


LD 

A,B 

DEFB 

179 , 21;COS 


LD 

A,(HL) 


JP 

C8 


JP 

B2 

DEFB 

186,22;INT 


AND 

11110000B 

B2 

LD 

(ADR) ,HL 

C8 

RRA 


DEFB 

189 , 23 ; ABS 


ADD 

A,C 

B3 

INC 

E 


RRA 


DEFB 

178, 24? SIN 


JP 

A3 


INC 

E 


RRA 


DEFB 

187 , 25?SQR 

Z5 

LD 

B,00H 


INC 

E 


INC 

HL 

DEFB 

184,26;LN 


AND 

000011116 

B4 

AND 

00011111B 


LD 

(ADR),HL 

DEFB 

185,27?EXP 


RLC 

C 


LD 

C,A 


LD 

E,1 

DEFB 

167,28;PI 


RLC 

c 


LD 

HL,(TAB) 


JP 

B4 

DEFB 

181 , 29; ASN 


RLC 

c 


INC 

HL 




DEFB 

182 , 30;ACS 


SLA 

c 


CALL 

NAJDI 

PÍSMO 

DEFB 

•A* ,0 

DEFB 

'-',31 
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Grafika je souhrn podprogramů tvořících grafický systém. S jejich pomocí můžete snadno vytvářet různé 
obrázky, schémata, grafy apod. Podprogramy umožňují transformovat souřadný systém, kreslit čáry 
a jednoduché obrazce, měnit barvy, vyplňovat uzavřené obrazce. Kreslit můžete na celou plochu obrazovky 
o velikosti 256x192 bodů. 

Systém je vytvořen jako knihovna podprogramů přizpůsobená pro Hisoft Pascal 4T. T uto knihovnu můžete " 
dále podle své potřeby rozšiřovat. 


Přehled podprogramů 

Podle činnosti lze podprogramy rozdělit 
do pěti částí: 


YSYM: INTEGER; 

GALFA, GDETER, XCO, XSC, XSH, XTR1, 
XTR2, XTR3, YCO, YSC, YSH, YTR1, 
YTR2, YTR3: REÁL. 


Parametry musí být v rozmezí 
0 <= PAT <= 255 
-7 <= RP <= 7. 

-Příklady vzorků: BIN 01010101 = 85, 
BIN 00010001 = 17. 


1) Organizační podprogramy: 


GINIT 

nastaví implicitní hodno- 
ty, 

WINDOW 

definuje velikost okénka 
pro kreslení, 

CLS 

vymaže obrazovku, 

CLW 

vymaže okénko, 

LTYPE 

definuje druh čar, 

DTYPE 

definuje způsob zobra- 
zení bodů a čar, 

PATTERN 

definuje vzorek pro vy- 
plňování a jeho rotací, 

AT 

INK, PAPER 

nastaví polohu tisku, 

BRIGHT, FLASH 

nastaví barvy pro kresle- 
ní, 

změní barvu okraje obra- 
zovky. 

BORDER 

2) Transformační podprogramy: 

SCALE 

nastaví měřítka os, 

COORD 

nastaví počátek souřad- 
ného systému, 

TURN 

natočí souřadný systém, 

SYMMET 

nastaví symetrii, 

SHIFT 

provede posunutí od po- 
čátku COORD. 

3) Kreslicí podprogramy: 

CURSOR 

nastaví kurzor, 

PLOT 

DRAW,LINETO, 

nakreslí bod, 

LINE 

nakreslí přímku, 

TRIA 

nakreslí trojúhelník, 

TETRA 

nakreslí čtyřúhelník, 

BOX 

nakreslí obdélník rovno- 
běžný s osami x a y, 

BOW 

nakreslí oblouk, 

CIRCLE 

nakreslí kružnici, 

FILL 

vyplní uzavřený obrazec, 

PAINT 

4) Funkce: 

vyplní uzavřený obrazec 
zadaným vzorkem. 

POSÍT 

posice kurzoru, 

POINT 

informace o bodu. 


Popis podprogramů 

1) Organizační podprogramy: 


AT (LIN.COL: INTEGER) 

Nastat/í tiskovou pozici na řádek LIN 
a sloupec COL. 


GINIT 

Tento podprogram musíte vyvolat před 
použitím ostatních podprogramů. GINIT pro- 
vede nastavení implicitních hodnot: 

WIND0W (0,0,255,191,0,0); celá obrazovka. 

SCALE (1 ,1); měřítko 1 :1 pro x i y. 

C00RD (0,0,); počátek zůstane 

SHIFT (0,0); v levém dolním rohu. 

SYMMET (0,0); TYRN (0); osy jsou totožné s okraji 
obrazovky. 

DTYPE (1); LTYPE (1); plná čára. 

PATTERN (1,1); jednoduchý vzorek. 

WINDOW (XMIN,YMIN,XMAX,YMAX, 
X0,Y0: INTEGER) 

Definuje polohu okénka na obrazovce. 
Střed souřadnic se nastaví ve vzdálenosti 
| X0,Y0 1 od levého dolního rohu okénka. 
Parametry jsou nezávislé na nastaveném 
měřítku. 

Parametry musíte zadat tak, aby platilo 


INK (hINTEGER) 

PAPER (P:INTEGER) 

BRIGHT (B:INTEGER) 

FLASH (F:INTEGER) 

Těmito podprogramy se nastaví dočasné 
aktivní barvy. Dovolené parametry jsou 0 až 
9 pro INK a PAPER, 0,1,8 pro BRIGHT 
a FLASH. Význam parametrů viz manuál ZX 
Spectra. 

BORDER (B: INTEGER) 

Tímto podprogramem změníte barvu 
okraje obrazovky. Dovolené hodnoty jsou 
0 až 7. 

2) Transformační podprogramy: 

SCALE (SX,SY: REÁL) 

Nastaví měřítko SX:1 pro osu x a SY:1 pro 
osu Y. Nepřípustným parametrem je 0. Mě- 
řítko ovlivňuje dále uvedené transformace. 


0 <= XMIN <= XMAX < = 255 o<= X0<= XMAX-XMIN 
0 <- YMIN <= YMAX <= 255 0 <= XO <= YMAN-YMIN 

CLS 

Vymaže 1 obrazovku, přenese dočasné 
barvy do trvalých a vyplní jimi obrázovku. 
Nastaví tisk do levého horního rohu, kurzor 
pro kreslení nastaví do bodu 1 0,0 1. 

CLW (FRAME: BOOLEAN) 

Vymaže okénko definované příkazem 
WINDOW. Parametrem FRAME si zvolíte, 
má-li se okénko ohraničit rámečkem 
(TRUE). 

LTYPE (LT: INTEGER) 

Definuje druh čar: 


1 plná čára, 

2 čárkovaná čára, 

3 tečkovaná čára. 


COORD (X0,Y0: REÁL) 

Nastaví počátek souřadného systému. 
X0.Y0 je posunutí od středu zadaného pod- 
programem WINDOW. 

K bodu COORD se vztahují dále uvedené 
transformace. 


obrazovka 1255, 19 1] 


! okénko Íxmax.Ymax] 

I 1 1 

\*\ ! 

I I y i 1- -X, 

I r_ ! 

(XmIN-YmIN] 


lo.ol 


5) Interně používané procedury a funkce: 

V této části jsou podprogramy přizpůsobe- 
ní a pomocné podprogramy používané 
. v částech 1 až 4. Pro úplnost uvádím i jejich 
seznam: 

CURSORO, DRAW0, FILL0, INVERSE, 
OVER, PAINT0, POINTO, RAN- 
GE, ROT, TRANS, TRCONST. 

Systém používá globální proměnné: 

_ _ GDTYPE, GLTYPE, GPAT, GROT, XMAN, 
1 O XMJN, XOS, XSYM, YMAX, YMIN, YOS, 


DTYPE (DT: INTEGER) 

Definuje způsob zobrazení bodů a čar: 


0 vymazávání (INVERSE 1), 

1 plná čára, 

2 změna bodů (OVER 1). 


PATTERN (PAT.RP: INTEGER) 

Těmito parametry se řídí způsob vyplňo- 
vání uzavřeného obrazce podprogramem 
PAINT. 

PAT je osmibitový vzorek, který je v binár- 
ním tvaru „naskládán" do vodorovné linky. 

RP ovlivňuje rotaci vzoru při přechodu na 
vyšší linku. Vzorek se posune o RP bitů 
vpravo (pro RP<0 o | RP | bitů vlevo). 


okénko : 




TURN (ALFA: REÁL) 

Souřadný systém se otočí okolo bodu 
COORD o ALFA stupňů (proti směru hodino- 
vých ručiček). 

SYMMET (SX,SY: INTEGER) 

Nastaví se symetrie: 

(1.0) podle osy x, 

(0,1) podle osy y, 

(1.1) podle počátku, 

(0,0) zrušení symetrie. 

SHIFT (SX.SY: REÁL) 

V natočeném svstému souřadnic se bod 
1 0,0 1 posune ve vzdálenosti | SX,SY | od 
bodu COORD. 

Uvedené transformační podprogramy 
provádějí pouze nastavování potřebných 
hodnot. Při opakovaném volání platí vždy 
poslední zadaná hodnota, na níž předchozí 
nemá žádný vliv. Na pořadí volání transfor- 
mačních podprogramů nezáleží. 

Transformace se zruší vyvoláním podpro- 
gramu s nulovými hodnotami (pro měřítko 
s hodnotami (1,1)). 

Znázornění transformací je na obr. 1. 

3) Kreslicí podprogramy: 

CURSOR (X,Y: REÁL) 

Přenese kurzor do bodu | X,Y |. 

V dále uvedených podprogramech se kur- 
zor nastaví do posledního nakresleného 
bodů, u obrazců (TRIA, TETRA, BOX) zůsta- 
ne v prvním zadaném bodě, po vyplnění 
(FILL, PAINT) se nastaví do zadaného vnitř- 
ního bodu. 

PLOT (X,Y: REÁL) 

Nakreslí bod | X,Y |. 

DRAW (DX.DY: REÁL) 

Nakreslí přímku od kurzoru do bodu 
4*kurzoru + DX, Ykurzoru+DY f. 

LINETO (X2,Y2: REÁL) 

Nakreslí přímku od kurzoru do bodu ( X2, 
Y2 1. 

LINE (X1,Y1,X2,Y2: REÁL) 

Nakreslí přímku z bodu- 1 XI, Y1 ] do bodu 
| X2,Y2 1. 

TRIA (XI ,Y1 ,X2,Y2,X3,Y3,X4,Y4: REÁL) 

Nakreslí trojúhelník zadaný třemi body. 

TETRA (XI ,Y1 ,X2,Y2,X3,Y3,X4,Y4: REÁL) 

Nakreslí čtyřúhelník zadaný čtyřmi body. 

BOX (X1mY1,X2,Y2: REÁL) 

Nakreslí obdélník rovnoběžný s osami 
x a y, přičemž body | XI ,Y1 1, | X2,Y2 ) jsou 
souřadnice úhlopříčky. 

BOW (X,Y,R, ALFA, BETA: REÁL) 

Nakreslí oblouk se středem v bodě | X,Y | 
a poloměrem R. Začátek oblouku svírá s po- 
loosou X+ úhel ALFA. BETA je vnitřní úhel 
oblouku. (Hodnoty ALFA, BETA jsou ve 
stupních.) 

CIRCLE (X,Y,R: REÁL) 

Nakreslí kružnici se středem v [ X,Y | a po- 
loměrem R. Pokud budou měřítka pro osu 
x a y rozdílná, bude výsledkem ve skuteč- 
nosti elipsa. 

FILL (X,Y: REÁL) 

Vyplní uzavřený obrazec barvou inkoustu. 
Bod [ X,Y | je uvnitř tohoto obrazce. 

PAINT (X,Y: REÁL) 

Vyplní uzavřený obrazec vzorkem zada- 
ným podprogramem PATTERN. Bod | X,Y | 
leží opět uvnitř tohoto obrazce. 

Poznámka: Při větších a složitějších 
obrazcích jsou podprogramy FILL a PAINT 


náročnější na volnou paměť. Tyto požadav- 
ky ovlivníte kladné tím, že vnitřní bod zadáte 
uprostřed vyplňovaného obrazce. 

Parametry všech kreslicích podprogramů 
se zadávají v transformovaných souřadni- 
cích. Pokud bude bod ležet mimo zadané 
okénko, vypíše se zpráva Out of window 
X= . . . Y= . . . XT = . . . YT= . . ., kde XT 
a YT jsou hodnoty transformovaných sou- 
řadnic, X a Y jsou hodnoty přepočítané do 
skutečných souřadnic. Po vypsání této chy- 
bové zprávy se program zastaví se zprávou 
Halt at PC= ... 

4) Funkce: 

POSÍT (VAR,PX,PY: REÁL) 

Ve skutečnosti nejde o funkci, ale o proce- 
duru, která vrací pozici kurzoru v transformo- 
vaných souřadnicích. 

POINT (X,Y: REÁL): BOOLEAN 

Tato funkce vrací informaci o bodu: 
TRUE .... bod je vyplněn 
barvou inkoustu, 

FALŠE . . . bod není vyplněn. 


Použití grafiky 

Tato verze systému grafiky je přizpůsobe- 
na pro Hisoft Pascal. Zdrojový text systému 
s názvem grafR.P je dlouhý 7485 bajtů. 

\ Vytvořený cílový kód je dlouhý 8715 bajtů. 

Po nahrání Hisoft Pascalu musíte zadat 
tabulku symbolů (Table size). Celý grafický 
systém spotřebuje pro tabulku 2600 bajtů. 
Bohužel většina verzí HP dovoluje použít pro 
tabulku symbolů max. 2200 bajtů. Potřebnou 
hodnotu 2600 i více lze zadat u verze HP 1 1 3 
(P. Adámek). 

Uvedené hodnoty naznačují, že v paměti 
nezbývá již mnoho místa (HP zabírá přes 20 
kB). Zdrojový text grafiky proto nelze kompi- 
lovat celý. Z programu můžete vymazat čás- 
ti, které nebudete potřebovat a pak zkompi- 
lovat. 

Aby se paměť nemusela zbytečně zatěžo- 
vat uchováváním zdrojového textu, je výhod- 
né použít kompilaci z pásky. To umožňuje 
kompilovat celý grafický systém. Proto jsem 
vytvořil „knihovní verzi". 

Systém grafika je zde rozdělen do 5 částí: 

1 grafRO.W - velikost cílového kódu je 3506 
bajtů. 

Základní část, obsahující podprogramy 
přizpůsobení, organizační podprogramy 
(GINIT, CLS, LTYPE, DTYPE, PATTERN, 
AT), kreslící podprogramy (CURSOR, 
PLOT, DRAW, LINE, LINETO); 

2. grafRI.W - 81 1 bajtů. 

Obsahuje organizační podprogramy 
(WINDOW, CLW), transformační podpro- 
gramy (SCALE, COORD, TURN, SYMMET, 
SHIFT); 

3. grafR2.W - 2031 bajtů. 

Obsahuje kreslicí podprogramy (TRIA, 
TETRA, BOX, BOW, CIRCLE); 

4. grafR3.W - 2217 bajtů. 

Obsahuje kreslicí podprogramy (FILLm 
PAINT); 

5. colour.W - 150 bajtů. 

Obsahuje podprogramy barev. 

Poznámka: označení .W v názvu zname- 
ná, že nejde o standardní formát zdrojového 
textu, ale o knihovní verzi nahranou editoro- 
vým povelem W. 

\ 

Při použití GRAFIKY zkompilujte část 
grafRO. a k ní pak přidejte další potřebnou 


část. Mezi deklaraci proměnných a deklaraci 
procedur a funkcí ve svém programu vložte 
řádky: 

j SF grafRO.W ) 
f SF grafRx.W f , 

kde x je číslo části. 

Pokud nemáte ve svém programu žádnou 
proměnnou, dejte před tento řádek klíčové 
slovo VAR. 

Při spuštění kompilace editorovým pove- 
lem C nebo T se u řádku s direktivou F kom- 
pilace zastaví a je připrávena na vkládání 
z pásky. 


Verze Integer 

Pro jednodušší kreslení jsem vytvořil verzi 
INTEGER, která je kratší a vytváří i menší 
cílový kód. Zdrojový kód s názvem grafl.P je 
dlouhý 5744 bajtů, velikost cílového kódu je 
5376 bajtů. Pro tabulku symbolů stačí 2200 
bajtů. Vyhovuje tedy všem verzím Hisoft 
Pascalu. 

Odlišnosti od verze REÁL: 

I. Kreslit můžete na obrazovku o velikosti 
256x176 bodů. 

II. Všechny uvedené podprogramy, které 
měly parametry typu REÁL, mají zde 
parametry typu INTEGER. 

III. Verze Integer neobsahuje tyto podpro- 
gramy: 

LTYPE - definice typu čar, . 

SCALE - nastavení měřítek, 

TURN - natočení souřadného systému, 
BOW - kreslení oblouku. 

IV. Knihovna má následující části: 

1 . graflO.W - velikost cílového kódu je 1 894 
bajtů. 

Základní část, obsahující podprogramy 
přizpůsobení, organizační podprogramy 
(GINIT, CLS, DTYPE, PATTERN AT), kresli- 
cí podprogramy (CURSOR, PLOT, DRAW, 
LINE, LINETO, CIRCLE); 

2. grafll .W - 584 bajtů. 

Obsahuje organizační podprogramy 
(WINDOW, CLW), transformační podpro- 
gramy (COORD, SYMMET, SHIFT); 

3. grafl2.W - 604 bajtů. 

Obsahuje kreslicí podprogramy (TRIA, 
TETRA, BOX); 

4. grafl3.W - 2144 bajtů. 

Obsahuje kreslicí podprogramy (FILL, PA- 
INT); 

5. colour.W - 150 bajtů. 

Obsahuje podprogramy barev (stejně jako 
u verze REÁL). 

Všechny programy, napsané pro verzi In- 
teger, budou pracovat stejně i s verzí Reál. 

Ukázky programů 

1 . Schody (Výpis 3.) 

Tento program ukazuje použití okénka, 
změnu měřítka; transformace souřadnic 
a vyplňování. 

2. Průběh funkce (Výpis 4.) 

Nakreslí se průběh jedné periody funkce 
Y=SIN (X). Ukazuje výhody změny měřítka. 

3. Pneumatika (Výpis 5.) 

Program nakreslí zjednodušeně pneuma- 
tiku a vybarví ji. Je použita verze INTEGER 
grafického systému. 


Výpis 1. Grafický systém, verze REÁL 
(926-VI) 
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C GRAFICKY SYSTEM } 

C P.KRIZ (c) 1988 > 

C verze REÁL j 

C$L-} 

XMIN, YMIN, XMAX ,YMAX , XOS , YOS , XSYM , YSYM , 

GRAT , GROT , GDTYPE , GLTYPE ' : I NTEGER ; 

XCG , YCQ , XSC , YSC , XSH , YSH , GALFA , GDETER , 

XTRi , XTR2 , XTR3 , YTR1 , YTR2 , YTR3 : REÁL ; 
í$0-,C-,S-, I-}' 

PROCEDUŘE CURSOR0 ( X , Y : I NTEGER ) ; 

BE6IN 

INLINE ( 221 , 102,2,221 ,110,4,34,125,92) 

END; 

PROCEDUŘE F'LOT0( X , Y: I NTEGER) ; 

BEGIN 

I NL I NE ( 253 , 33 ,58,92, 221 ,70,2 ,221 ,78,4, 237 ) 
INLINE( 67 , 125, 92 ,62 , 191 , 205 , 172 ,34 , 905 . 236 

END; ’ ' ’ ’ 

PROCEDUŘE DRAW0(DX ,DY; I NTEGER) ; 

BEGIN 


121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 


,34) 


150 

151 

152 


) ; 


) ; 


156 

157 

158 

159 

160 
161 
162 
16 :: 


I NL I NE ( 253 , 33 , 58 , 92 , 1 7 , i , 1 , 221 , 70 , 2 ) ; 

INLINE (221, 126, 3, 167, 40, 4, 87, 175, 144, 71) ; 

INLINE (221, 78, 4, 221, 126 5,167,40 4, 9Š) ; 

INLINE (175, 145, 79, 121, 184, 48, 6, 105, 213 175 
INLINE (95, 24, 8, 177,40,51 , 104 , 65 , 21^ ,'22 ) ; 

INLINE (0,96, 120, 31, 133, 56, 3, 188 56 , ^ ) ; 

I NL INE ( 148 ,79,217, 193 , Í97 , 24 , 4 , ^9 , Žl3 217 ) 

I NL I NE (193,42,125, 92 ,121, 133 , 79 , 1^0 , IŽ2 , 71 
INLINE (237 ,67,125,92,62,191,205,172,34,205 
I NL INE (236, 34, 217, 121 , 16,214,209) 

END; ’ 

FUNCTION POINT0( X , Y; INTEGER) : BOOLEAN ; 

BEGIN 

INL INE (221 ,70,2,221 ,78, 4 ,62, 191 ,205,172,34 
INL INE (71 ,4, 126,7, 16,253,230,1 ,221 ,119,6) 

END; 

PROCEDUŘE POSI T0 ( VAR PX , PY ; I NTEGER ) ; 

BEGIN 

INL INE (237, 91 ,125,92,175,221,110,4) ; 

I NL INE ( 221 , 102 ,5, 115,35, Í19, 221 , i 10 ! 2 ) ; 

INLINE ( 221 , 102 ,3,114, 35, 119 ) 

END; 

PROCEDUŘE OVER (0:1 NTEGER ) ; 

BEGIN 

I NL I NE ( 62 , 2 , 221 , 86 , 2 , 205 , 29 , 34 ) 

END; ’ ’ 

PROCEDUŘE INVERSE( I : INTEGER) ; 

BEGIN ’ 

I NL I NE ( 62 , 1 , 22 1 , 86 , 2 , 205 , 29 , 34 ) 

END ; 

PROCEDUŘE AT ( L I N , COL : I NTEGER ) ; 

BEGIN 

INL INE (221 ,70,2,221 ,78,4,205,10,32) 

END; 

PROCEDUŘE TRANS (X,Y: REÁL; VAR PX , PY : INTEGER ) 

BEGIN 

PX:=R0UND(XTR1+XTR2*X+XTR3*Y) ; 

PY : =ROUND ( YTR1+YTR2# X+YTR3* Y ) ; 

< l :' k x 1 < XMIN) OR ( P X > X MA X ) OR ( PYÍYMIN ) OR (PYTYMAX) THEN 
BEGIN 

Y)**HALT (CHRd-3) * *O u t of window: X=',PX,‘ Y=',PY,' XT=',X, 

’ EŇD 
END; 


TRANS ( XR+DX , YR+DY , X , Y ) ; 

PDX:=XTR2*DX+XTR3*DY; 

PDY:=YTR2*DX+YTR3*DY; 

IF GLTYPE=1 THEN DRAW0 ( ROUND ( PDX ), ROUND ( PDY ) ) 
ELSE BEGIN 

IF GLTYPE=2 THEN BEGIN A:=2;B:=4 END 
ELSE BEGIN A:=4;B:=0 END; 

L : =SQRT ( SQR ( PDX ) +SQR ( PDY ) ) ; 

N : =TRUNC ( ( L+B ) / ( A+B ) ) ; 

POSIT0 ( X , Y ) ; 

FQR I : =0 TO N-l DO BEGIN 
F'LOT0(X+ROUND(F'DX*I/N) , Y+ROUND ( PDY* I /N ) ) ; 

IF GLTYPE=2 THEN 

DRAW0( ROUND (F'DX*A/L) , ROUND ( PDY* A/L ) ) 

END ; 

PLOT0 ( X+ROUND ( PDX ) , Y+ROUND ( PDY ) ) 

END 

138 END; 

139 PROCEDUŘE L I NETO ( X2 , Y2 : REÁL ) ; 

140 VAR XI, Yl: REÁL: 

141 BEGIN 

142 F'OS IT(X1,Y1) ; DRAW ( X2-X1 , Y2-Y1 ) 

143 END; 

144 PROCEDUŘE L INE ( X 1 , Yl , X2 , Y2 : REÁL ) ; 

145 BEGIN ... 

146 PLOT ( XI , Yl ) ; DRAW ( X2-X1 , Y2-Y1 )' 

147 END; 

148 PROCEDUŘE CLS; 

149 BEGIN 

PAGE ; AT ( 0 , 0 ) ; CURSQR (0,0); 

I NL I NE ( 205 , 173 , 28 , 58 , 14 1 , 92 , 33 0 , 88 ) ■ 

INL INE (17, i, 88, 1,255, 2, 119, 237, 176) 

153 END; ’ ’ ' 

154 PROCEDUŘE GINIT ; 

155 BEGIN 

XSC : =1 ; YSC : =1 ; XCO : =0 ; YCO : =0 ; GALFA : =0 ; 

XSH : =0 ; YSH : =0 ; XSYM : =1 ; YSYM : =1 ; XOS : =0 ; YOS : =0 ; 
XMIN :=0; YMIN : =0 ; XMAX : =255; YMAX : =191 • ' 

TRCONST; ' 

CURSOR (0,0) ; 

DTYPE ( 1 ) ; LTYPE ( 1 ) ; 

PATTERN ( i , 1 ) 

END; 

164 PROCEDUŘE WINDOW ( XI , Yl , X2 , Y2 , X0 , Y0 : INTEGER ) ■ 

165 BEGIN ... i. LU ‘- n 3 

166 XMIN : =X1 ; YMIN : =Y1; XMAX :=X2; YMAX :=Y2; XOS :=XMIN 

*-X0 ; YOS : =YM I N+Y0; 5 

167 TRCONST 

168 END; 

169 PROCEDUŘE COORD ( X0 , Y0 : REÁL ) ; 

170 BEGIN ’ 

171 XCO :=X0; YCO :=Y0; TRCONST 

172 END; 

173 PROCEDUŘE SCALE ( SX , SY : REÁL ) ; 

174 BEGIN 

175 XSC:=SX ; YSC: =SY; TRCONST 

176 END; 

177 PROCEDUŘE SH I FT ( SX , SY : REÁL ) ; 

178 BEGIN ’ 

179 XSH :=SX; YSH :=SY; TRCONST 

180 END; 

181 PROCEDUŘE SYMMET ( SX , SY : INTEGER ) ; 

1B3 IF SX=0 THEN XSYM:=1 ELSE XSYM:=~1; 

184 IF SY=0 THEN YSYM:=1 ELSE YSYM:=-1; 


66 PROCEDUŘE POSIT(VAR F'X , F'Y : REÁL ) ; 

67 VAR X , Y : INTEGER; 

68 BEGIN 

69 POSI T0 ( X , Y ) ; 

70 F'X : = ( ( X-XTRi ) * YTR3- ( Y-YTR1 ) *XTR3 ) /GDETER : 

71 PY:=( ( Y-YTR1) *XTR2-( X-XTRI ) *YTR2 ) /GDETER 

72 END; 

73 PROCEDUŘE TRCONST; 

74 BEGIN 

75 XTR2:=YSYM*XSC*C0S(GALFA) ; 

76 YTR2:=YSYM*XSC*SIN(GALFA) ; 

77 XTR3:=-XSYM*YSC*SIN(GALFA) ; 

78 YTR3 : =XSYM*YSC*COS ( GALFA ) ; 

79 XTRI :=X0S+XSC*XC0+XTR2*XSH+XTR3*YSH; 

80 YTR1 :=Y0S+YSC*YC0+YTR2*XSH+YTR3*YSH; 

81 GDETER : =XTR2*YTR3-XTR3*YTR2 

82 END; 

83 PROCEDUŘE LTYPE ( LT : I NTEGER ) ; 

84 BEGIN 


85 GLTYPE : =LT 

86 END; 

87 PROCEDUŘE DTYPE ( DT : I NTEGER ) ; 

88 BEGIN 

89 GDTYPE :=DT; 

90 OVER ( 0 ) ; I N VERSE ( 0 ) ; 

91 IF DT=0 THEN INVERSE(l); 

92 IF DT=2 THEN OVER ( 1 ) 

93 END; 

94 PROCEDUŘE PATTERN ( PAT , RP : I NTEGER ) ; 

95 BEGIN 

96 GF'AT:=PAT;GROT:=RP 

97 END; 

98 FUNCTION F'0 1 NT ( X , Y : REÁL ): BOOLEAN ; 

99 VAR F'X ,F'Y: INTEGER; 

100 BEGIN ' 

101 TRANS ( X , Y , PX , PY ) ; 

102 F’Q I NT : =F'Q I NT0 ( F'X , PY ) 

103 END; 

104 PROCEDUŘE CURSOR ( X , Y : REÁL ) ; 

105 VAR PX ,PY: INTEGER; ' 

106 BEGIN ' 

107 TRANS ( X, Y, PX , PY ) ; 

108 CURSOR0 ( F’X , F'Y ) 

109 END; 

110 PROCEDUŘE PLOT (X,Y: REÁL ) ; 

111 VAR F'X,PY: INTEGER; 

112 BEGIN ' 

113 TRANS ( X , Y , PX , PY ) ; 

114 PLOT0 ( PX , PY ) 

115 END; 

116 PROCEDUŘE DRAW ( DX , DY : REÁL ) ; 

117 VAR A, B, N, X ,Y, I : INTEGER; 

118 XR , YR , PDX , PDY , L : REÁL ; 

119 BEGIN ' 

120 POSIT( XR, YR) ; 


185 TRCONST 

186 END; 

187 PROCEDUŘE TURN ( ALFA : REÁL ) ; 

188 BEGIN 

189 GALFA :=ALFA*3. 1416/ 180 ; TRCONST 

190 END; 

191 PROCEDUŘE CLW ( FRAME : BOOLEAN ) ; 

192 VAR Y,T: INTEGER; 

193 BEGIN 

194 T : =GDTYPE ; DT YPE ( 0 ) ; 

195 FOR Y:=YMIN TQ YMAX DO BEGIN 

196 PLOT0 ( XMIN , Y ) ; DRAW0 ( XMAX -XMIN , 0 ) 

197 END; 

198 DTYPE (T); 

199 IF FRAME THEN BEGIN 

200 CURSOR0( XMIN, YMIN) ; 

201 DRAW0 ( 0 , YMAX-YMI N ) ; DRAW0 ( XMAX-XMIN , 0 ) ; 

202 DRAW0 ( 0 , YM I N-YMAX ) ; DRAW0 ( XM I N-XMAX , 0 ) 

203 END; 

204 CURSOR (0,0) 

205 END; 

206 PROCEDUŘE TRI A ( XI , Yl , X2 , Y2, X3 , Y3 : REÁL ) ; 

207 BEGIN ' 

208 CURSOR ( XI, Yl ) ; 

209 DRAW ( X2-X1 , Y2-Y1 ) ; 

210 DRAW ( X3-X2 , Y3-Y2 ) ; 

211 DRAW ( X 1— X3 , Y1-Y3 ) 

212 END; 

213 PROCEDUŘE TETRA ( X 1 , Yl , X2 , Y2 , X3 , Y3 , X4 , Y4 : REÁL ) ; 

215 CURSOR ( X 1 , Y 1 ) ; 

216 DRAW ( X2-XÍ , Y2-Y1 ) ; 

217 DRAW ( X3-X2 , Y3— Y2 ) ; 

218 DRAW ( X4-X3 , Y4-Y3 ) ; 

219 DRAW (XI— X4.Y1-Y4) 

220 END; 

221 PROCEDUŘE BOX ( X 1 , Yl , X2 , Y2 : REÁL ) ; 

222 BEGIN . 

223 CURSOR ( XI. Yl ) : 

224 DRAW(0, Y2-Y1 ) ; 

225 DRAW ( X2~X 1 , 0 ) ; 

226 DRAW ( 0 , Yl— Y2 ) ; 

227 DRAW (Xi— X2,0) 

228 END; 

229 PROCEDUŘE BOW ( X , Y , R , ALFA , BETA : REÁL ) ; 

230 VAR U . V , RX , RY , RM : REÁL ; 

231 BEGIN' 

232 ALFA:=ALFA*3. 1416/180; 

233 BETA:=BETA*3. 1416/180; 

234 CURSOR ( X+RKCOS ( ALFA ) , Y+FOCSIN ( ALFA ) ) ; 

235 RX:=ABS(R*XSC) ; RY : =A8S ( R* YSC ) ; 

236 IF RX; RY THEN RM:=RX ELSE RM : =RY ; 

237 U: =3. 1416/36; 

238 IF RM<10 THEN U:=2iCU; 

239 IF RM<25 THEN U:=3*U; 


240 V : =U ; 

241 WHILE V<=BETA DO BEGIN 

242 LINETO( X+R*COS ( ALFA+V.) , Y+R*SI N ( ALFA+V ) ) ; 

243 V:=V+U 

244 END; 

245 LINETO( X+R*COS( ALFA+BETA) , Y+R*SIN ( ALFA+BETA 

246 END; 

247 PROCEDUŘE CIRCLE ( X , Y , R : REÁL ) ; 

248 BEGIN 

249 BOW(X,Y,R, 0,360) 

250 END; 

251 PROCEDUŘE RANGE ( VAR XI , X2; INTEGER; Y : INTEGER 

252 BEGIN 

253 IF X1>XMIN THEN 

254 REPEAT X1:=X1-1 

255 UNTIL ( X1=XMIN ) OR POINTO ( XI ,Y ) ; 

256 IF X2ÍXMAX THEN 

257 REPEAT X2:=X2+1 

258 UNTIL ( X2=XMAX ) OR F'OINT0(X2,Y) 

259 END; 

260 C*S+} 

261 PROCEDUŘE F ILL0 ( VAR X; INTEGER; Y: INTEGER); 

262 VAR XI, X2: INTEGER; 

263 BEGIN ' ' 1 

264 X2:=X; 

265 RANGE (X, X2, Y) ; 

266 CURSOR0 ( X , Y ) ; 

^67 X " =X+1 ’ 

268 DŘAW0()<2-X,0) ; 

269 XI :=X ; 

270 IF Y<YMAX THEN 

271 WHILE X<X2 DO BEGIN 

272 IF NOT POINTO ( X , Y+l ) THEN F ILL0 ( X , Y+l ) ; 

273 X : =X+1 

274 END; 

275 X : =X i ; 

276 IF YíÝMIN THEN 

277 WHILE X < X 2 DO BEGIN 

278 IF NOT POINTO ( X , Y— 1 ) THEN FILLO ( X , Y-l ) ; 

279 X : =X+1 

280 END; 

281 X : =X2 ; 

282 END; 

283 Í$S-} 

284 PROCEDUŘE F ILL ( X , Y : REÁL ) ; 

285 VAR PX,PY,X1,T: INTEGER; 

286 BEGIN 

287 TRANS ( X, Y, F'X. F'Y ) ; 

288 IF NOT PO I NT0 ( P X , P Y ) THEN BEGIN 

289 T : =GDTYPE ; DTYPE ( 1 ) ; 

290 X 1 : =P X ; 

291 FILLO ( PX , PY ) ; 

292 DTYPE ( T ) 

293 END; 

294 CURSOR0 (XI, PY ) 

295 END; 

296 [<řS+} 

297 PROCEDUŘE PA I NT0 ( X , Y , PAT : INTEGER ) ; 

298 VAR X1,X2,PAT1: INTEGER; 

299 FUNCTION ROT ( PAT , N : INTEGER ); INTEGER ; 

300 VAR I: INTEGER; 

301 BEGIN 

.302 FOR I:=— 1 DOWNTO N DO BEGIN 

303 PAT:=PAT*2; 

304 IF PAT >=25 5 THEN PAT:=PAT-255 

305 END; 

306 FOR I : =1 TO N DO BEGIN 

307 IF PAT MOD 2=1 THEN PAT : =F’AT +256 ; 

308 PAT : -PAT DIV 2 

309 END ; 

310 ROT : =PAT 

311 END; 

312 BEGIN 

317 X1 ,= X - X2:=X - 

314 RANGE ( XI !X2 ? ,Y) ; 60 

315 XI :=X1+1 ; X2:=X2-1 ; 61 

316 PAT : =ROT ( PAT , ( X-Xi ) MOD 8); END 

317 PAT 1 : =F'AT ; 

318 FOR X:=X1 TO X2 DO BEGIN 
71 Q PAT • =PAT*7 - 

320 IF F'AT>255 * THEN BEGIN 

321 PAT ;=F'AT-255; 

322 PLQT0 ( X , Y ) 

END 

END; 

IF Y<YMAX THEN BEGIN 
PAT : =ROT ( PAT1 , XSYM*YSYM*GRQT ) ; 

FOR X : =X 1 TO X2 DO BEGIN 
IF ( PAT > 127 ) AND NOT F'0 INT0 ( X , Y+l ) THEN 


) ) ; 


366 PROCEDUŘE FLASH ( F : INTEGER ) ; 

367 BEGIN 

368 . INLI NE ( 175,60,221,86,2,205,29,34) 

369 END; 

370 PROCEDUŘE BORDER ( B : INTEGER ) ; 

371 BEGIN 

372 INLINE ( 221 , 126,2,205 ,151,34) 

373 END; 

374 f $L + , 0+ , C+ , S+ , I - ] 


Výpis 2. Grafický systém, verze INTEGER 
(926-V2) 


GRAFICKY SYSTEM 
P.KRIZ (c) 1988 
verze INTEGER 


IF 


6 [$L-> 

7 XCO , YCO , XSYM , YSYM , XMIN , YMIN , XMAX , YMAX , 

8 XOS , YOS , XSH , YSH , GPAT , GRQT , GDTYPE : INTÉGER; 

9 t*0-,C-,S-, I-} 

10 PROCEDUŘE CURSOR0(X,Y: INTEGER) ; 

11 BEGIN 

12 INLI NE (221 , 102,2,221 ,110,4,34,125,92) 

13 END; 

14 PROCEDUŘE PLOT0 ( X , Y ; INTEGER ) ; 

15 BEGIN 

16 INLI NE (253, 33, 58,92,221 ,70,2,221 ,78,4,205,229,34 ) 

17 END; 

18 PROCEDUŘE DRAW0 ( DX , DY : INTEGER ) ; 

19 BEGIN 

20 INLINE (253, 33, 58, 92, 17, 1,1, 221, 70, 2) ; 

21 INLINE (221, 126, 3, 167, 40, 4, 87, 175) ; 

22 I NL INE (144,71, 22 i ,78,4, 22 i , i 26 , 5 , 167 ) ; 

23 I NLINE( 40, 4, 95, 175, 145,79,205, 136,36) 

24 END; 

25 PROCEDUŘE C I RCLE0 ( X , Y , R : I NTEGER ) ; 

26 BEGIN 

27 I NL INE ( 221 , 126 ,6,205,40,45) ; 

28 I NL I NE (221,126,4, 205 , 40 , 45 ) ; 

29 INLINE (221 , 126,2,205,40,45) ; 

30 INLINE (205, 45, 35) 

31 END; 

32 FUNCTION F0 1 NT0 ( X , Y : INTEGER ): BQOLEAN ; 

33 BEGIN 

34 I NL I NE ( 221 , 70 , 2 , 221 , 78 , 4 ) ; 

35 INLINE (205, 170, 34, 71, 4, 126, 7) ; 

36 INL I NE ( 16 , 253 , 230 , 1 , 221 ,119,6) 

37 END ; 

38 PROCEDUŘE POSIT0(VAR PX ,F'Y : INTEGER ) ; 

39 BEGIN 

40 INL INE (237, 91, 125, 92, 175, 221, 110, 4) ; 

41 INL INE (221, 102, 5, i 15, 35, i 19, 221, i 10, 2) ; 

42 INLINE ( 221 , 102 ,3 , 114,35, 119) 

43 END; 

44 PROCEDUŘE OVER ( O : I NTEGER ) ; 

45 BEGIN 

46 I NL I NE ( 62 , 2 , 221 , 86 , 2 , 205 , 29 , 34 ) 

47 END; 

48 PROCEDUŘE I NVERSE ( I ; I NTEGER ) ; 

49 BEGIN 

50 INLINE ( 62 , 1 , 221 , 86 , 2 , 205 , 29 , 34 ) 

51 END; 

52 PROCEDUŘE AT ( LIN , COL : INTEGER ) ; 

53 BEGIN 

54 INLINE ( 221 ,70,2,221,78,4, 205 , 10 , 32 ) 

55 END; 

56 PROCEDUŘE TRANS ( VAR PX , PY : I NTEGER ) ; 

57 BEGIN 

58 PX:=(PX+XSH)*YSYM+XCO+XOS; 

59 PY : = ( PY+YSH ) * XSYM+YCO+YOS ; 

(PXKXMIN) OR ( F’X > XMAX ) UK (PYKYMIN) UK ( P Y> YMAX ) I HEN 
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BEGIN WRITE(CHR( 13) , ' Out of Windows X= ' , PX , ' Y= ' , PY ) ; HALT 

62 END; 

63 FUNCTION PO I NT ( X , Y : INTEGER ): BOOLEAN ; 

64 BEGIN 

65 TRANS ( X , Y ) ; PO I NT ; =P0 INT0 ( X , Y ) 

66 END; 

67 PROCEDUŘE POSIT(VAR PX , PY : INTEGER ) ; 

68 BEGIN 

69 POSIT0 ( F’X , PY ) ; 


PAINT0( X , Y+l ,PA 


F’AT ; =F‘AT#2 ■ 

IF PAT>255 * THEN F'AT:=PAT-255 
END 
END; 

IF Y>YMIN THEN BEGIN 
PAT : =ROT ( PAT1 , -XSYM* YSYM*GROT) ; 

FOR X : =X 1 TO X2 DO BEGIN 

IF ( PAT > 127 ) AND NOT POINT0 ( X , Y-l ) THEN F'A INT0 ( X , Y-l , F'A 


PAT • =PAT#2 • 

IF PAT>255 5 THEN F'AT:=PAT-255 
END 
END 
END; 

CíS-} 

PROCEDUŘE F' A I NT ( X , Y ; REÁL ) ; 

VAR PX ,PY,T: INTEGER; 

BEGIN 

TRANS ( X , Y , PX PY ) ; 

IF NOT POINT0(PX,PY) THEN BEGIN 
T : =GDTYPE ; DTYPE ( 1 ) ; 

PAINT0 ( PX , PY , GPAT ) ; 

DTYPE ( T ) 

END; 

CURSOR0 ( F'X , PY ) 

END; 

PROCEDUŘE INK( I : INTEGER) ; 

BEGIN 

I NLINET 55 , 221 ,86,2, 205 , 52 , 34 ) 
END; 

PROCEDUŘE PAPER ( F' ; I NTEGER ) ; 

BEGIN 

INL I NE ( 167 , 221 , 86 , 2 , 205 , 52 , 34 ) 
END ; 

PROCEDUŘE BRIGHT(B: INTEGER) ; 
BEGIN 

INLI NE (151, 221, 86, 2, 205, 116, 34) 
END; 


70 PX:=(PX-XCO-XOS)*YSYM-XSH; 

71 F'Y: = (PY-YCO-YOS) * XSYM- YSH 

72 END; 

73 PROCEDUŘE CURSOR ( X , Y : I NTEGER ) ; 

74 BEGIN 

75 TRANS ( X, Y ) ; CURSOR0 ( X , Y ) 

76 END; 

77 PROCEDUŘE PLOT ( X , Y : I NTEGER ) ; 

78 BEGIN 

79 TRANS ( X , Y ) ; PLOT 0 ( X , Y ) 

80 END; 

81 PROCEDUŘE DRAW ( DX , DY ; INTEGER ) ; 

82 VAR X,Y: INTEGER; 

83 BEGIN' 

84 POSÍT ( X , Y) ; X ; =X+DX ; Y : =Y+DY ; 

85 TRANS ( X , Y ) ; 

86 DRAW0(DX*YSYM,DY*XSYM) 

87 END; 

88 PROCEDUŘE LIMETO ( X2 , Y2 : INTEGER ) ; 

89 VAR XI ,Y1; INTEGER; 

90 BEGIN 

91 POS I T ( X 1 , Y1 ) ; DRAW ( X2-X 1 , Y2— Y 1 ) 

92 END; 

93 PROCEDUŘE L INE ( XI , Y1 , X2 , Y2 : INTEGER ) 

94 BEGIN 

95 PLOT ( X 1 , Y1 ) ; DRAW ( X2— XI ,Y2-Y1 ) 

96 END; 

97 PROCEDUŘE CIRCLE ( X , Y , R : INTEGER ) ; 
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BESIN 

TRANS ( X , Y ) ; C I RCLE0 ( X , Y , R ) 

END; ’ 5 

PROCEDUŘE DTYPE(T: INTEGER) ; 

BEGIN 
GDTYPE : =T ; 

OVER ( 0 ) ; INVERSE ( 0 ) ; 

IF T=0 THEN INVERSE(l); 

IF T=2 THEN OVER(l) 

END; 

PROCEDUŘE PATTERN ( PAT , RP : I NTEGER ) ; 

BEGIN ’ 

GPAT : =PAT ; GROT : =RP 
END; 

PROCEDUŘE CLS; 

BEGIN 

PAGE ; AT ( 0 , 0 ) ; CURSOR (0,0); 

INLINE( 205 , 173 , 28, 58, 141 , 92,33 , 0 , 88 ) ; 

^INLI NE (17, i, 88, 1,255 ,2 ,119,237 ,176) 

PROČEDURE GINIT ; 

BEGIN 

XMIN : =0 ; YMIN : =0 ; XMAX : =255 ; YMAX : =175 ; 
XOS^YOS^XCO : =0 ; YCO : =0 ; XSH : =0 ; YSH : =0 ; 

CURSOR (0,0) ; ’ 

DTYPE ( 1 ) ; 

PATTERN (1,1) 

END; 

Ě0R9f, DLJRE WINDOW( XI ,Y1 , X2,Y2,X0,Y0: I NTEGER ) ; 
títb i N ; 

XMIN;=X1 ; YMIN:=Y1 ; XMAX : = X2 ; YMAX : =Y2 ; XOS : =X 1 + X0 ; 
=Y1+Y0 

END; 

PROCEDUŘE COORD ( X0 , Y0 : INTEGER) ; 

BEGIN 

XCO : =X0 ; YCO : =Y0 
END; 

PROCEDUŘE SYMMET ( SX , SY : I NTEGER ) ; 

BEGIN 

§ v x=0 THEN XSYM : =1 ELSE XSYM:=-1; 

IR SY=0 THEN VSYM:=1 ELSE YSYM:=-1 
END ; 

EPS95 DURE SHIFT(SX,SY: INTEGER) ; 

BEGIN 

XSH : =SX ; YSH : =SY 
END; 

PROCEDUŘE CLW ( FRAME : BOOLE AN )-; 

VAR Y,T: INTEGER; 

BEGIN 

T ; =GDTYPE ; DTYPE ( 0 ) ; 

FOR Y : =YMlN TO YMAX DO BEGINi 

PLOT0 ( XM I N , Y ) ;DRAW0( XMAX- XMIN, 0) 

END ; ’ 

DTYPE ( T ) ; 

IF FRAME THEN BEGIN 
CURSOR0( XMIN, YMIN) ; 

DRAW0 ( 0 , YMAX-YMIN ) ; DRAW0 ( XMAX-XM IN , 0 ) : 
^DRAW0(0, YMIN-YMAX ) ; DRAW0 ( XM IN-XMAX , 0) ' 

CURSOR (0,0) 

END; 

PROCEDUŘE TRI A (XI,' 

BEGIN 

CURSOR ( XI, Yl) ; 

DRAW (X2-Xi,Y2-Yl) 

DRAW ( X3-X2 , Y3-Y2 ) 

DRAW ( X 1-X3 , Y1-Y3 ) 

END ; 

RRC9 EDURE TETRA ( X 1 , Yl , X2 , Y2 , X3 , Y3 , X4 , Y4 : INTEGER 
BEGIN 

CURSOR ( X 1 , Y 1 ) ; 

DRAW( X2-X1 , Y2-Y1 ) ; 

DRAW ( X3— X2 , Y3-Y2 ) ; 

DRAW ( X4-X3 , Y4-Y3 ) ; 

DRAW ( X1-X4,Y1— Y4) 

END; 

PROCEDUŘE BOX (X1,Y1,X2,Y2: INTEGER) ; 

BEGIN 

CURSOR (X1,Y1) ; 

DRAW ( 0 , Y2-Y 1 ) ; 

DRAW( X2-X1 ,0) ; 

DRAW ( 0 , Y1-Y2 ) ; 

DRAW ( X 1-X2 , 0 ) 

END; 

PROCEDUŘE RANGE ( VAR X 1 , X2 : INTEGER ; Y : INTE6ER ) ; 

IF X 1 > X M I N THEN 
REPEAT X 1 : =X 1 — 1 

UNTIL ( X 1=XMIN ) OR POINT0 ( XI , Y ) ; 

IF X2CXMAX THEN 
REPEAT X2 : =X2+ 1 

UNTIL ( X2=XMAX ) OR POINT0(X2,Y) 

END ; 

PROCEDUŘE FILL0( VAR X : INTEGER ; Y : INTEGER ) ; 

VAR XI, X2: INTEGER: 

BEGIN 
X 2 : = X ■ 

RANGE ( X , X2 , Y ) ; 

CURSOR0 ( X , Y ) ; ' 

X : =X+1 ■ 

DŘAW0( X2-X ,0) ; 

X 1 : =X ■ 

IF*Y<YMAX THEN 

WHILE X < X 2 DO BEGIN , 

IF_NOT F'0 INT0 ( X , Y+l ) THEN F I LL0 ( X , Y+l ) ; 

ENĎ7 

X ; =X i " 

IF Y>YMIN THEN 
WHILE X < X 2 DO BEGIN 

IF_NOT F'OI NT0 ( X , Y — 1 ) THEN F I LL0 ( X , Y-l ) ; 

X : — X + l 
END; 

X :=X2; 

END; 

Í*S-} 

PROCEDUŘE FILL(X,Y: INTEGER) ; 

VAR T, XI: INTEGER; 

BEGIN 

TRANS ( X , Y ) ; 

IF NOT POINT0 ( X , Y ) THEN BEGIN 
T : =GDTYF'E ; DTYPE ( 1 ) ; 

Xl“=sX" 

F I LL0 ( XI , Y ) ; 

DTYPE ( T ) 


íí , X2,Y2, x; 
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ÉND; 

CURSOR0 ( X , Y ) 

END; 

Í*S+} 

PROCEDUŘE PA I NT0 ( X , Y , PAT : I NTEGER ) ; 

VAR XI, X2,PAT1: INTEGER; 1 
FUNCT I ON ROT ( PAT , N : I NTEGER ) : I NTEGER ; 
VAR I: INTEGER; 

BEGIN 

FOR I ; =-i DOWNTO N DO BEGIN 
PAT ; =F'AT*2 * 

IF F'AT>255 " THEN PAT:=F'AT-255 
END; 

FOR I:=i TO N DO BEGIN, 

IF PAT MOD 2=1 THEN PAT : =PAT +256 ; 
PAT : =PAT DIV 2 
END; 

ROT : =F'AT 
END; 

BEGIN 

X t ■ =X • X3 . = v . 

RANGE ( XI X2 ? ,Y) ; 
xi -=xi+i ■ x?- = y?-i • 

PAT :=ROT (PAT, ( X — X I ) MOD 8); 

PAT 1 : =PAT ; 

FOR X :=X1 TO X2 DO BEGIN 
PAT • =PAT*7 • 

IF PAT>255 ’ THEN BEGIN 
PAT:=PAT-255; 

F'LOT0 ( X , Y ) 

END 


255 END; 

256 IF Y<YMAX THEN BEGIN 

257 PAT : =ROT ( PAT 1 , XSYM*YSYM*GRO'F) ; 

258 FOR X : =X 1 TO X2 DO BEGIN 

259 IF ( PAT> 127 ) AND NOT POINT0 ( X , Y+l ) 
PAINT0 ( X , Y+l , PA T ) ; 


THEN 


260 PAT:=F'AT*2; 

261 IF PAT>255 THEN PAT:=PAT-255 

262 END 

263 END; 

264 IF Y>YMIN THEN BEGIN 

265 . PAT : =ROT ( PAT1 , -XSYM* YSYM*GROT ) ; 

266 FOR X : =X1 TO X2 DO BEGIN 

267 IF ( PAT>127 ) AND NOT POINT0( X , Y-l ) THEN 
PAINT0 ( X , Y-l , PA T ) ; 


268 PAT :=PAT*2; 

269 IF PAT>255 THEN PAT :=F'AT-255 

270 END 

271 END 

272 END; 

273 OS-} 

274 PROCEDUŘE PAINT ( X , Y : INTEGER ) ; 

275 VAR T: INTEGER; 

276 BEGIN 

277 TRANS (X,Y); 

278 IF NOT POINT0 ( X , Y ) THEN BEGIN 

279 T:=GDTYPE;DTYP£(Í) ; 

280 F'AINT0 ( X , Y , GPAT ) ; 

281 DTYPE ( T ) 

282 END; 

283 CURSOR0 ( X , Y ) ; 

284 END; 

285 PROCEDUŘE INK ( I : INTEGER ) ; 

286 BEGIN 

287 INU NE ( 55 , 221 , 86 , 2 , 205 , 52 , 34 ) 

288 END; 

289 PROCEDUŘE PAPER ( P : I NTEGER ) ; 

290 BEGIN 

291 INLINE ( 167 ,221,86,2, 205 ,52,34) 

292 END; , ' 

293 PROCEDUŘE BRIGHT ( B : I NTEGER ) ; 

294 BEGIN 

295 INLINE (151, 221, 86, 2, 205, 116, 34) 

296 END; 

297 PROCEDUŘE FLASH ( F : INTEGER ) ; 

298 BEGIN 

299 INL INE ( 175 , 60 , 221 , 86 , 2 , 205 ,29,34) 

300 END; ’ 

301 PROCEDUŘE BORDER ( B : I NTEGER ) ; 

302 BEGIN 

303 I NLI NE ( 221 , 126,2,205, 151 ,34) 

304 END; 

305 í $L+ , 0+ ,C+,S+, I — ]• 


Výpis 4. Program Průběh funkce (926-V4) 

PROGRAM PrubehFunkceSinus ; 

CONST 

PI=3. 14159; 

VAR 

S , X , U : REÁL ; 

Í$F graf R0 . W } 

Í$F grafRl.W} 

BEGIN 

GINIT; 

CLS; 

WI NDOW (0,0,255,191,16,96) ; 

AT (2, 20); { pro 64 znakíi na řádek } 

WRITELN( 'PRŮBĚH FUNKCE Y=SIN(X)'); 
S:=90/F'I ; 

SCALE ( S , S ) ; 

LTYPE ( 3 j ; 

LINE(0,<-1,0,1) ; 

LINE(0, 0, 2*PI ,0.) ; 

LTYPE ( 1 ) ; 

PLOT (0,0) ; 

U : =3/S ; 

X : =0; 

WHILE X<=2*PI DO BEGIN 
LINETO( X ,SIN( X ) ) ; 

X : =X+U 
END 
END. 


Výpis 3. Program Schody (926-V3) 



Jozef Kutej a Peter Kottáš, CHTF SVŠT, Radlmskeho 9, 812 37 Bratislava 

V mikropočítačoch československej výroby sa střetáváme takmer 
výlučné s paralelným přepojením mikropočítač-tlačiareň. Výhoda, kto- 
rú toto prepojenie má - zvýšená rýchlosť přenosu dát, sa u mikropočí- 
tačov neprejaví. U nás bežne používané stolně tlačiarne D 100, PRT 80, 
K 6313, K 6314 majú rýchlosť tlače do 120 znakov/s. Týmito limitujú 
maximálnu rýchlosť přenosu dát na úroveň do 2000 bitov/s. 


PROGRAM SCHODY; 

VAR 

•C$F grafR0.W} 

C*F grafRl.W} 

•C*F graf R2 . W} 

C$F grafR3.W} 

[$F colour.W} 

Í*L-} 

PROCEDUŘE SCHODY ( N : I NTEGER ) ; 

VAR I : INTEGER ; 

PROCEDUŘE SCHOD; 

BEGIN 

TETRA (0,20,0,10,50,0,50,10); 
DRAW (20 , 4 ) ; 

DRAW( 50,-10) ; 

DRAW (-20, -4) ; 

FILL ( 25 , 10 ) ; 

PA-INT (35, 17) 

END; 

BEGIN 

FOR I:=0 TO N-l DO BEGIN 
SHIFT ( 20# I , 14*1 ) ; 

SCHOD 

END; 

SHIFT ( 0,0) ; 

IF N>1 THEN BEGIN 
PLOT (50,0); 

HpAW(40,8) ; 

DRAW ( 20* ( N-2 ) , 14* (N-2) ) ; 
DRAW (0,20) 

END 

END; 

Í$L+} 

BEGIN 
GINIT ; 

PAPER ( 4 ) ; 

BORDER ( 4 ) ; 

CLS ; 

SCALE ( 1 . 3 , 1 . 5 ) ; 

SCHODY ( 6 ) ; 

. WIND0W(24, 80, 127, 159, 10,10) ; 

' PAPER ( 5 ) ; 

CLW ( TRUE ) ; 

— SCALE ( 0 . 4 , 0 . 4 ) ; 

PATTERN( 17,-1) ; 

SCHODY ( 8 ) ; 

WINDOW ( 96 , 2 ( 4 , 231 ,111,125,10) ; 
PAPER ( 7 ) ; 

CLW ( TRUE j ; 

SYMMET (0,1) ; 

SCALE (0.6, 0.6) ; 

PATTERN ( 85 , 1 ) ; 

SCHODY ( 7 ) 

END. 


Paralelné prepojenia (systém PMD 85, 
Centronix, IRPR) vyžadujú na prepojenie 
minimálně jedenásť až dvanásť vodičov, 
obvod paralelného styku (aspoň 1/2 8255), 
budiče zbernice (8286, 8287 . . .) a připadne 
ďalšie hradlá na spracovanie riadiacich sig- 
nálov. Zapojenie je obvodovo náročné, pou- 
žité konektory, zvyčajne FRB, sú drahé a ne- 
dostatkové. 

V našich mikropočítačoch sme odskúšali 
zapojenie sériového interfejsu na prepojenie 
mikropočítač-tlačiareň. S výhodou sa dá 
použiť v systémoch s mikroprocesorom 
MHB 8080A s tromi napájacími hladinami 
+ 12 V, +5 V a -5 V. 

Interfejs na prepojenie mikropočítača 
s tlačiarňou vyžaduje tri tranzistory, tri diody 
a osem odporov. Na prepojenie sú potřebné 
tri vodiče. Tlačiarne K6313-14, D100, 
PRT80, móžu byť vybavené odpovedajúcim 
interfejsom RS 232 (V24), výrobcovia ich 
ponúkajú. 

Na obr. 1 je příklad zapojenia obvodu 
styku mikropočítača PMD85 s tlačiarňou 
a klávesnicou. Tlačiareň a klávesnica majú 
sériové vstupy-výstupy, tlačiareň pódia nor- 
my RS232 (V24). Interfejs móže byť ovláda- 
ný cez SIO 8251 (obr. 1), SIO U856, cez dva 
vývody PIO 8255, U855 . . . 


Výhody zapojenia sú následovně: 

- redukcia počtu přepojovacích vodičov 
z jedenásť na tri pri dížke prepojovacieho 
káblu do 16 m, 

- zjednodušenie zapojenia obvodu styku, 
úspora polovodičov, 

- na prepojenie nie je potřebné používat 
drahé a pri častejšom rozoberaní nespo- 
fahlivé konektory FRB. Je možné použiť 
normalizované 25-kolíkové konektory. No 
nám sa osvědčili aj lačné 5-kolíkové nf- 
-konektory s mechanickým spojením na 
závit, 

- podstatné zníženie pracnosti pri výrobě 
přepojovacích káblov. 

Tento interfejs je výhodné použiť v mikro- 
počítačových systémoch s napájacími hladi- 
nami + 12 V, +5 V a -5 V predovšetkým na 
prepojenie s tlačiarňou. Tu je ekonomicky aj 
technicky nevhodné realizovat interfejs po- 
mocou 10 751 50 a 751 54, ktoré vyžadujú na 
správnu funkciu ďalšiu napájaciu hladinu 
-12 V. 

Zapojenie sme odskúšali pri přepojení 
mikropočítača PMD85 s tlačiarňami K6311 
(NDR) a Dl 00 (PLR). Na 16 m sme prenášaii 
dáta rýchlosťou 9600 bitov/s. 


Výpis 5. Program Pneumatika (926-V5) 


PROGRAM PNEUMATIKA; 

CONST 

F'OSUN=15; 

Ri=30 ; 

R2=65; 

VAR 

I : INTEGER; 

{ 4F graf 10 . W} 

{ÍF graf 1 1 . W> 

Í$F graf 13. W} 

BEGIN 

GINIT; 

CLS; 

COORD( 128,88) ; 

FOR I : =0 TO 1 DO BEGIN 
SH I FT ( I *PQSUN , I * POSUN ) ; 
CIRCLE(0,0,R1) ; 

CIRCLE (0,0, R2 ) ; 

IF 1=0 THEN 
FILL ( Rl+1 ,0 ) 

END 

END. 


*5 V *12 V 




Obr. 1. Schéma zapojenia vstupov-výstupov pre tlačiareň a klávesnicu. Obvody INT 
a RESIN umožňujú prácu prerušovacieho systému a externý studený štart z externej 

klávesnice. (908-1) 





Vladimír Julius, 0K1IVJ, sokolovská 123, 323 16 Plzeň 

V minulém roce se v naší maloobchodní síti objevily souřadnicové zapisovače 1 Pí 6 k počítači SHARP MZ- 
-800. Elektronika zapisovače obsahuje jednočipový mikroprocesor 8050 se 4kB paměti PROM a výstupní 
zesilovače pro ovládání krokových motorů a pera. Tyto zapisovače používají speciální papír v roli o šířce 11 cm, 
který není běžně na trhu, a potřeba per v ceně 80 Kčs (souprava) také nepatří k jejich přednostem. Proto jsem 
zkonstruoval zapisovač, který -odstraňuje uvedené nedostatky a umožňuje připojení k libovolnému typu 
počítače. Používám ho ve spojení s počítačem SHARP MZ - 821 a ZX SPECTRUM +. 

V tomto příspěvku nebudu uvádět popis mechanické části zapisovače, její řešení je dnes dostatečně 
známé a neskrývá při pečlivém provedení žádné záludnosti. Pro posun papíru a pera se všeobecně používají 
krokové motorky, které se dají jednoduše řídit výstupními porty mikropočítače, jak bude popsáno v dalším 
textu. Krok zapisovače je převážně volen 0,125 nebo 0,25 mm, což umožňuje mimo jiné kreslení plošných 
spojů v rastru 2,5 mm. Doporučuji všem případným zájemcům, aby se seznámili s provedením zapisovačů 
ALFI a MINIGRAF 0507. 


Řízení zapisovače je řešeno použitím pro- 
cesorové desky JPR 1. Toto řešení není 
v dnešní době už jistě tím nejlepším , ale tuto 
procesorovou desku jsem měl k dispozici 
a ještě dnes se objevuje v inzerátech AR. 
Další verze je zpracována a odzkoušena 
s mikroprocesorem Z80, kde se tak podařilo 
snížit odběr o více než 50%. Zde jistě mnozí 
zájemci namítnou, proč jsme nepoužili jed- 
nočipový mikropočítač naší produkce např. 


Tab. 1 Obsazení portů JPR - 1 


PORT - vst. bit 

KONEKTOR 

SIGNÁL H > L 

RDSI1 0 

K3 - 20 

JMP 1000H 

1 

K3 - 17 

- 

2 

K3 - 12 


3 

K3 - 14 

- 

4 

K3 - 13 

- 

5 

K3 - 18 

A4 / ROLE 

6 

K3 - 15 

LF (LF + CR) 

. 7 

K3 - 16 

CR (CR + LF) 

RDSI 0 

K2 - 30 

PRAVÍ DORAZ 

1 

K2 - 28 

LEVÍ DORAZ 

2 

K2 - 27 

C0L0R A/N 

3 

K2 - 29 

TL. STOP 

4 

K2 - 23 

TL. TEST 

5 

K2 - 26 

TL. READY 

6 

K2 - 24 

RDP (DATA PLATNÁ) 

7 

K2 - 25 

ASCII / HZ 800 

DSHI 0 

K2 - 6 

DATA 0 

1 

K2 - 4 

1 

2 

K2 - 3 

2 

3 

K2 - 5 

3 

4 

K2 - 2 

4 

5 

K2 - 8 

5 

6 

K2 - 9 

6 

7 

K2 - 7 

7 

PORT - výst.bit 

KONEKTOR 

SIGNÁL 

RDSO 0 

K3 - 24 

- 

1 

K3 - 26 

- 

2 

K3 - 27 

RDA (DATA AKCEPT) 

3 

K3 - 29 

STA (STATUS TISK.) 

4 

K3 - 23 

KROK 0.125/0.25 

5 

K3 - 28 

REPRODUKTOR 

6 

K3 - 30 

LED "BUFF" 

7 

K3 - 25 

LED "READY" 

KOTR 0 

K2 - 13 

FÁZE - X 1 

1 

K2 - 14 

X 2 

2 

K2 - 20 

X 4 

3 

K2 - 19 

Y 1 

4 

K2 - 17 

Y 2 

5 

K2 - 15 

Y 4 

6 

K2 - 16 

- 

7 

K2 - 18 

0VL. PERA 


8035. Pokud ale budeme počítat, zjistíme, 
že nelze ušetřit žádné součástky a pro- 
gramování Z80 nám bylo bližší. Jiná situace 
by byla s použitím ^P 8250-4kB ROM . . . 
Na procesorové desce JPR 1 je osazeno 
4 kB EPROM 2716 a 1 kB RAM 2114. 
Obsazení portů je patrné z Tab. 1 . Port 
P1-IN je připojen na řídící počítač a pomocí 
bitu RDA a RDP je řízen přenos mezi počíta- 
čem a procesorovou deskou JRR 1. Pro 
větší univerzálnost zařízení je ýnodné do 



řídících signálů RDA, STA, RDP, IRT lařadit 
hradla EX-OR MH7486, abychom mohli tyto 
signály invertovat. Signál STA udává status 
plotteru a je softwarově ošetřen a nevyužívá 
se. Signál IRT je použit pro reset JPR 1 od 
počítače. Port PO-OUT je použit pro řízení 
motorků a magnetu pro ovládání pera. Tento 
port je přímo slučitelný se vstupem plotteru 
MINIGRAF 0507, se kterým byl také odzkou- 
šen. Kdo má možnost použít tento plotter, 
nemusí si dělat starosti s mechanikou, která 
je zde vyřešena velice dobře. Tento plotter 
nemá koncové spínače, takže se motory 
v koncových polohách nezastaví; mechani- 
ka je na to přizpůsobena. Vývody pro konco- 
vé spínače se nezapojí. Přes vývod K3-28 je 
připojen reproduktor 75 fi; signalizuje stav, 
ve kterém se plotter nachází. Jde např. 
o žádost výměny pera, najetí na doraz, počá- 
teční inicializace atd. Obslužný program má 
kruhový buffer na 256 znaků a tak umožňuje 
větší využití počítače. Stav tohoto bufferu 
indikuje dioda LED označená ,,BUFF“. Další 
dioda označená ,,READY“ indikuje stav, 
v jakém se JPR 1 právě nachází. Na portu 


ASCII 



Obr. 2. Grafické schéma 
programu 
pro plotter (933-2) 


PO-IN jsou zjišťovány stavy spínačů. Spí- 
nače pravý a levý doraz hlásí najetí vozíku 
nesoucího pero na konec kreslicího stolku, 
přičemž levý zajišťuje inicializaci pera do 
výchozí polohy. Spínač ,,COLOR“ říká, zda 
má plotter akceptovat povel pro změnu bar- 
vy. Když ano, kreslení se zastaví a čeká se 











Obr. 1. Schéma zapojení elektronické části plotteru (933-1) 


JPR-1 


MIN /GRAF 0507 
1 K2* 


K2-6 


K2-13 



krok 0.125/0,25 


pravý doraz 
levý doraz 
color N/Y 
ti stop 
ti test 
tl ready 
ASCII /MZ800 



*12 V -5 V 

Tkl 1>K1 Yki 

1516 51,52 55,56 

17.18 


24 1/ 



24 V 



adr. data 

adr. data ] 

00 

02 

10 

22 

01 

06 

11 

26 

02 

04 

12 

24 

03 

05 

13 

25 

04 

01 

14 

21 

05 

09 

15 

29 

06 

08 

16 

28 

07 

0A 

17 

2A 

08 

12 

18 

32 

09 

16 

19 

36 

0A 

14 

1A 

34 

OB 

15 

■1B 

35 

0C 

11 

1C 

31 

OD 

19 

ID 

39 

0E 

18 

1E 

38 

OF 

1A 

1F 

3A 


RDA 

data převzatá 

JPR-1 -ŘJ 

STA 

status tiskárny 

JPR-1 -ŘJ 

RDP 

data platná 

ŘJ— JPR-1 

IRT 

řešet pro tiskárnu 

ŘJ — JPR-1 


Tri 

1-2 

220 V 

0,25 A 

3-4 

9 

1,3 A 

5-6 

25 1/ 

1,0 A 

7-9 

2x13 V 

0,1 A 


na výměnu pera. Z reproduktoru se ozývá 
přerušovaný tón signalizující barvu pera, 
kterou si počítač žádá. Jde o sled 1-4 teček. 
Stiskem tlačítka ,, READY" se plotter opět 
spustí. Při rozepnutí spínače ,,COLOR“ 
máme možnost kreslit barevný obrazec pou- 
ze jednou barvou bez přerušení. Tlačítko 
,,STOP“ umožňuje okamžité zastavení plot- 
teru - spustí se opět tlačítkem „READY". 
Protože tento plotter byl řešen hlavně pro 
použití s počítačem SHARP, který má pro 
malá písmena abecedy jiné kódy než udává 
tabulka ASCII, je nutné tyto znaky převádět. 
To je zajištěno s přepínačem přepnutým do 
polohy MZ-800. Pokud je tento přepínač 
v poloze ASCII, znaky se tisknou podle této 
tabulky. Znaky, které nejsou v generátoru 
znaků obsaženy, jsou nahrazeny tečkou. 
Tlačítko „JMP 1000H" vykoná tuto instrukci 
a provede nepodmíněný skok na adresu 
1000 pro případné další využití JPR1 . Přepí- 
nač „A4/ROLE" sdělí počítači, jestli máme 
založen list papíru A4 a pro další psaní 
musíme inicializovat znovu začátek stránky, 
nebo zda máme roli a stačí vynechat několik 
volných řádků. K přepínačům „LF" a ,,CR“ 
jistě není co dodávat. Ještě je třeba se zmínit 
o výstupu pro velikost kroku 0,125 nebo 
0,25 mm. Tento výstup vybírá dekodér na- 
programovaný v paměti MH74188. Pokud 
bude mít někdo připojen plotter 0507, potom 
nemůže tuto funkci využít a yývod zůstane 
nezapojen. 


Ovládání krokových motorů je řízeno tříbi- 
tovým kódem 0-7, který přes dekodér ovlá- 
dá 4 fáze krokového motoru. Tento dekodér 
v režimu 0,125 mm otáčí motorem o 4,5 
stupně, což představuje 80 kroků na jednu 
otáčku. V režimu 0,25 mm se motor otáčí 
o 9 stupňů na jeden krok. Úměrně tomu je 
také softwarově zmenšena rychlost kroko- 
vání tak, aby výsledná rychlost psaní zůstala 
nezměněna. To platí při použití dekodéru 
MH74188, který je pro tento účel naprogra- 
mován podle tabulky. Řešení s dekodérem 
bylo použito vzhledem k jednoduchému při- 
pojení na plotter MIN IG RAF 0507, který ob- 
dobný dekodér obsahuje. V další verzi pro- 
gramu je tento dekodér řešen softwarově, 
což dále zjednodušuje elektroniku plotteru. 

V plotteru jsou použity motpry SMR 300/ 
300 RI24, které se dají objednat pro organi- 
zaci v MEZ Náchod. V maloobchodní síti se 
dají občas koupit motory SMR 300/100, kte- 
ré pracují stejné, pouze výsledná rychlost se 
bude muset v programu zmenšit asi o 1/3. 

Dále popsaný program řadí tento plotter 
mezi inteligentní periférie, které na našem 
trhu stále nejsou a zřejmě ještě dlouho nebu- 
dou v takových cenových relacích, aby byly 
dostupné uživatelům domácích počítačů. 
Máme tak vyřešen grafický výstup počítače 
a jsme schopni kreslit technické výkresy, 
výkresy plošných spojů a třeba diplomy nebo 
přání k svátku. 


Seznam součástek 


Rezistory: 

R1 , R4 

6.8 Q 

TR 191 

R2* 

12 kQ 

TR 191 

R3* 

8.2 kíi 

TR 191 

R5-R8 

68 Q 

TR 510 

R9 

47 Q 

TR 510 

R10-R12 

100 íl 

TR 191 

Kondenzátory: 

Cl, C2, C5 

1 GF 

TE 984 

C3, C4. C7, C8 

100 nF 

TK 782 

C6, Cl 5 

500 uF 

TE 986 

C9 

50 [iF 

TE 986 

CIO, Cil 

200 |iF 

TE 986 

C12-C14 

4,7 ii F 

TE 125 

Polovodiče: 

D1-D8 


1N5401 

D9-D12 


KY 130/80 

D13-D21 


KY130/150 

D22, D23 


KZ260/1 8 

D24 


LQ 1702 

D25 


LQ 1202 

D26 


GA204 

T1-T9 


KF508 

101, 102 


MH74188 

103 


MH7805 

104 


MH7824 

105 


WSH913 

Ostatní: 

MX, MY 


SMR 300/300 RI24 

REPRO ARZ 084 



' Nutno nastavit výstupní napětí. 
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Obr. 3. Náhrada desky JPR-1 zapojením s mikroprocesorem Z80 (933-3) 














; * * 

i* Program pro rizeni plotteru z řidiči jednotky * 

i * pres ste.nda.rtni rozhráni Centronics * 

i* •*< 

;* Julius Roman Sokolovské 123 Plzeň 323 16 '* 

; * * 


; Hof; »♦*>+! >+;>+; ^:i+c (+>>+< 


. 6080 



) soubor instrukci 18080 

. RADIX 

16 


> implicitní ciselne soustavě 

SVKORfl 

. EQU 

1000 

i zacatek dalsich 4 kbyte 

NEWP 

EQU 

8000 

i zde zacina vlastni program 
iJPR-1 EQU 0 

ROM 

EQU 

08000 

i pocatecni adrese proměnných 
; JPR-1 EQU 2000 

RDSI1' 

EQU 

8E 

i vstup ridicich signálu 
i JPR-1 EQU 2C00 

RDSI 

EQU 

90 

; vstup ridicich signálu 
; JPR-1 EQU 2400 

RDSO 

EQU 

8C 

; vystup ridicich signálu 




; JPR-1 EQU 2800 

DSHI 

EQU 

8D 

; vstup dat 
; JPR-1 EQU 2800 

MOTR 

EQU 

90 

> vystup na krokové motory 




; JPR-1 EQU 2400 


. PHftSE 
Dl 

NEWP 

;zakaz přerušeni 


LXI 

SP, STACKj e neste v stack 


MVI 

A, 4 

; pocatecni nastaveni 


STfl 

RDSO 

; výstupního portu 


XRR 

A 

i znuluj 


STO 

KLM 

;bit reproduktoru 


STfl 

PPORG 

; funkci dorazu pro ORG 


STfl 

KR025 

i krok- 0. 125 mm 


LDfl 

RDSI 

i otestuj tlacitko 


flNI 

10 

) TEST, je-li stisknuto 


CZ 

TEST 

; proved celkový test 


CflLL 

MUSÍ 

; piskej 


CflLL 

GENINI 

i inicializace gener atoru 

RS1: 

XRfl 

fl 

i znuluj 


STfl 

KLM 

Jbit reproduktoru 


STfl 

UKRfl 

i ukazatel radek 

~ 1-1 

STfl 

UKZR 

j - " - znaku na rádce 


STfl 

KR025 

; jednoduchý krok 0. 125 mm 


STfl 

RDSO 

i ridic i signály 


STfl 

SPD 

> rychlost 


STfl 

PPORG 

i funkci dorazu pro ORG 


INR 

fl 

; barva=l 


STfl 

COLR 



MVI 

fl, 3F 

i počet radek na stránku 


STfl 

PRST 



CflLL 

BUFINI 

t inic ial izace bufferu 


LXI 

B, 0 



LXI 

D, 0 

i parametry pro ORG 


CflLL 

PORG 

; nastav počátek sour. syst. 


CflLL 

CH406 

i 80 znaku na radek 


LXI 

H, 0 

i skutečna X=0 


SHLD 

SKUTX 



MVI 

fl, 1 



STfl 

REZI 

i textový režim 


STfl 

fiSCD 

; režim ASCII 


STfl 

PPORG 

; funkce dorazu pro havarii 

RIBL: 

CflLL 

BUFĚ 

,• cyklus pro vycitani prikazu 


LXI 

D, RIBL 

) navratova adresa pro pprog. 


PUSH 

D 

i do stač ku 


LDfl 

REZI 



CPI 

2 

■> podle druhu režimu vyber tab. 


LXI 

H, TBFG 

; graf icky-graf icka tabulka 


JZ 

RIBG 

i a vyber 


MOV 

fl, C 

; režim textový 


CPI 

ID 

; je-li kod 1DH 


JZ 

RIB1 

; vyber adresu 


flNI 

0F0 

; je-li vetsi nez 0FH -> 


JNZ 

PRINT 

jtisknutelny znak - vytiskni 

RIB1 : 

LDfl 

RDSI 

) řidiči znak 


flNI 

80 



CZ 

PŘEVOD 

> převed podle přepínače 


LXI 

H, TBFT 

i textová tabulka 

RIBQ : 

CflLL 

PROHL 

; vyber podprogram z tabulky 


PCHL 


i a skoč na nej 

PROHL : 

MOV 

fl, M 

iv C Jí povel, v HL adresa tab. 


CMP 

C 

> vybere adresu 


JZ 

PROHU 

; nasel přikaž 


CPI 

0FF 

; konec tabulky 


JZ 

PROHK 



INX 

H 

i HL^HL+3 -> 


INX 

H 

;dalsi pozice 


INX 

H 



JMP 

PROHL 

idalsi přikaž v tabulce 


PROHU: 

INX 

H 

i vybere z tabulky adresu 


MOV 

E, M 

ido E 


INX 

H 



MOV • 

D, M 

jdalsi pulku do D 


XCHG 


> a vymen s HL 


RET 


; navrat 

PROHK : 

POP 

H 

i povel jsem nenasel 


POP 

H 

> zruš návratovou adresu 


JMP 

RIBL 

;dalsi povel 

HflVflR : 

LXI 

SP, STflCK/ zj isti 1 jsem doraz 


CflLL 

MUS2 

;a hlásím havarii 


JMP 

RS1 

;restartuj systém 

TBFG: 

DB 

48 

i tabulka funkci 


DW 

HOME 

iv grafickém režimu 


DB 

54 



DW 

SETS 



DB 

45 



DW 

CGRflMS 



DB 

47 



DW 

CGRflMW 



DB 

43 



DW 

COLOR 



DB 

4fl 



DW 

RLINE 



DB 

52' 



DW 

RMOVE 



DB 

4C 



DW 

LTVPE 



DB 

44 



DW 

DRflW 



DB 

49 



DW 

HSET 



DB 

4D 



DW 

PMOVE 



DB 

58 



DW 

flXIS 



DB 

53 



DW 

SCflLE 



DB 

51 



DW 

ANGLE 



DB , 

50 



DW 

GPRINT 



DB 

1 



DW 

TEXTR 



DB 

46 



DW 

FflST 



DB 

5R 



DW 

SSIZE 



DB 

59 



DW 

DOT 



DB 

57 



DW 

RDOT 



DB 

42 



DW 

DIflC 



DB 

0FF 



DW 

PROHK 


TBFT: 

DB 

2 

y funkce v textovém režimu 


DW 

GRflFR 



DB 

5 

‘ 


DW 

CGRflMW 



DB 

0D 



DW 

PCR 



DB 

0fl 



DW 

PLF 

' 


DB 

8 



DW 

BflSP 



DB 

3 



DW 

HŇUP 



DB 

4 



DW 

PTEST 



DB 

9 



DW 

DEVET 



DB 

0B 



DW 

CH26 



DB 

7 



DW 

CH408 



DB 

1 



DW 

TEXTT 



DB 

0C 



DW 

STRAN 



DB 

ID 



DW 

CHCOL 



DB 

0FF 



DW 

PROHK 


BUFINI : 

XRfl 

fl 

j inicializace bufferu 


LXI 

H, CW 

i znuluj 1. ukazovátko 


MOV 

M, fl 



INX 

H 



MOV 

M, fl 

) pote i druhé 


STfl 

CK 



STfl 

BUF I NT 



RET 



BUFĚ: 

PUSH 

PSW 

; pprog. pro rizeni přijmu 



BUF2 : 


NEZB : 


BUFO: 


SEST: 


BUFW: 


BFI : 


BFI2: 


BFO : 


V 


PUSH 

D 

i dat a prače- s bufferem 

PUSH 

H 


LDR 

RDSI 

; test tl. STOP 

RNI 

8 


CZ 

MUS3 

/ stisk nuto-pozdrz práci 

LDR 

RDSI 

/test tl. TEST 

RNI 

10 


CZ 

PTEST 

/ stisk nuto-proved test 

LDR 

RDSI1 

/test tl. SVKORR 

RNI 

1 


JZ 

SVKORR 

/ stisknuto-skoc na jeho adr. 

CRLL 

BUFO 

/ uloženi znaku z portu 

LDR 

BUF I NT 

/znak ctěn z buff. 

ORR 

fl 

/ nebo z pomocné proměnně 

JNZ 

NEZB 

/ -z proměnně 

CRLL 

BFI 

/ -z buf f eru 

PUSH 

PSW 

/ us c hově j 

LDR 

KR025 


ORI 

40 

, 

STR 

RDSO 

/ rozsvit diodu RERDV 

POP 

PSW 


JZ 

BUFE+3 

/ buff. prázdny - LED sviti 

LDR 

KR025 


STR 

RDSO 

/ neni, zhasni ji 

POP 

H 


POP 

D 


POP 

PSW 


RET 


/ obnov reoj. ai vrat »se 

XRR 

fl 

/ znak neni z buff eru 

STR 

BUF I NT 

/ pristé uz bude 

LDR 

PRECH 

/ načti jej do C 

MOV 

C, fl 


JMP 

BUFZ 

/ a vrat se 

LDR 

RDSI 

/jsou připravena data ? 

RNI 

40 


RZ 


/ ne, vrat se 

LDR 

DSHI 

/ ano, cti je do C 

MOV 

C, fl 


CRLL 

BFO 

/ pokus se Je uložit do buff. 

RZ 


/ nejde, to - je plny 

LDR 

KR025 


ORI 

4 


STR 

RDSO 

/ potvrd pri jem data 

LDR 

RDSI 

/cekej na shozeni RDP 

RNI 

40 


JNZ 

SEST 


LDR 

KR025 


STR 

RDSO 

/nastav znovu připravenost 

MVI 

B, 83 


DCR 

8 

/chvi li počkej 

RZ 


/ nejdou, vratime se 

LDR 

RDSI 

/a testuj pri jdou- li 

RNI 

40 

/dalsi data 

JNZ 

BUFO 

/ pris 1 i 

JMP 

BUFW 

/cekej dále 

LXI 

H, CK 

/vlastni ctěni z buff eru 

MOV 

fl, M 


RflR 

XRR 

M 


RNI 

1 


LXI 

H, BUFF- 

-2 

MOV 

R, M 


MOV 

E, fl 


INX 

H 


JNZ ' 

BFI 2 


CMP 

M 


RZ 

MVI 

D, 0 


XCHG 

INX 

H 


DRD 

D 


MOV 

C, M 


XCHG 

DCX 

H 


INR 

M 


RNZ 

LXI 

H, CK 


MOV 

fl, M 


RRR 



RflR 

CMC 

RAL 

RRL 

JMP 

BF03 



LXI H, CK j vlastni zapiš do bufferu 

MOV fl, M 

RflR 

XRR M 

RNI 1 

LXI H, BUFF-2 

MOV fl, M 

INX H 

JZ BF02 

CMP M 

RZ 

MVI D, 0 



MOV 

XCHG 

E, M 



INX 

H 



DRD 

D 



MOV 

XCHG 

M, C 



INR 

M 



RNZ 




LXI 

H, CK 



MOV 

fl, M 



RflR 

! 



CMC 



.. 

RRL 



BF03 : 

MOV 

M, R 



INR 

R 



RET 

' 


PRRRM: 

CRLL 

IGNO 

/ přečteni ciselnych pararn. 


MOV 

fl, C 

/ z buf f eru 


CPI 

2D 

/test na záporná cisla 


MVI 

fl, 0 

z k ladné 


JNZ 

KLI 



MVI 

fl, 1 

/ záporné 

KLAD : 

STR 

PRZ 

/nastav pri znak pro pozdě jsi 


LXI 

H, 0 

/ invertováni 


CRLL 

EX0 

/vlastni ctěni 


JNC 

COMP 

/ z invertován i podle znaménka 


MOV 

fl, C 

/ulož poslední znak znovu 


STR 

PRECH 

z do bufferu 


MVI 

fl, 1 



STR 

BUF I NT 


COMP: 

LDR 

PRZ 

z je-li tato prom. nas tavena 


CPI 

1 

/na 1 neprovádí invertaci HL 


RNZ 




MOV 

fl, L 

z nejprve L 


CMA 




MOV 

L, fl 



MOV 

fl, H 

/ pote i H 


CMR 




MOV 

H, fl 



INX 

H 

/ HL<=HL+1 


RET 


/ z invertované HL 

KLI: 

MVI 

fl, 1 

/ neni-li 1. nemezerovy znak 


STR 

BUFU NT 

z ulož jej zpět do buff. 


MOV 

fl, C 



STR 

PRECH 



JMP 

KLAD 

/ cislo je kladné 

EX0 : 

CRLL 

BUFĚ 

/vlastni ctěni vstup HL=0 


MOV 

fl, C 

/vystup cislo v HL 


CPI 

3fl 



CMC 




RC 


/znak mimo rozsah vrat se 

EX1: 

MOV 

B, fl 



CRLL 

RC 

NIBBLE 



DRD 

H 

/ zvyš HL o dalsi cislo 


PUSH 

H 



DRD 

H 



DRD 

H 



POP 

D 



DRD 

D 



MOV 

E, R 



MVI 

D, 0 



DRD 

D 



JMP 

EX0 


NIBBLE: 

SUI 

30 

/testuj prislusnost 


RC 


/ do množiny 


RDI 

30-4? 

/hexadecimálních znaku 


RC 


z nepatři tam 


RDI 

6 



JP 

NI0 



RDI 

? 



RC 


/ nepatři tam 

NI0 : 

RDI 

0R 



ORR 

fl 



RET 



IGNO : 

CRLL 

BUFĚ 

/ i ejnoru j mezery 


MVI 

R, 20 



CMP 

C 



JZ 

IGNO. 



RET 



HSET : 

LHLD 

SKUTX 

/ funkce HSET 


XCHG 

LHLD 

STPX 

/ nastav novy skut. počátek 


DRD 

D 



SHLD 

SKUTX 



JMP 

NULXV 

/ a nuluj okamžité X a V 

HOME: 

LXI 

B, 0 

/ funkce HOME 


LXI 

D, 0 



JMP 

MOVR 

/ přesun na 0, 0 

COLOR : 

CRLL 

PRRRM 

/ funkce COLOR 


INR 

L 



26 


BF02 : 




MOV 

fl, L 


C0L1: 

STA 

CKLO 



STR 

COLR 



LDR 

RDSI 



ANI 

4 



RNZ 


> barva. je zakazana, urát se 


LXI 

H, OB© 

; neni, inicializuj zuukouy 


SHLO 

KLOPR 

> generátor 


LXI 

H, 800 

; pod 1 e c i s 1 a barvy 


SHLD 

KLOPB 



MVI 

fl, 15 



STR 

KMIT 



JMP 

MUSIC 

; hlas barvu 


; Umožňuje nadefinovat vlastni znak 


CGRRMS : 

CRLL 

PRRflM 



MOV 

fl, L 

; c i s 1 o generátoru 


ORR 

fl 



JNZ 

CGRfl 



INR 

fl 


CGRfl : 

RNI 

@F 

> uvazuje pouze 15 generátoru 


LXI 

H, CGR-22 

> adresa, generátoru 


LXI 

D, 22 

; max irnalni délka 


CRLL 

• NRSOB 

; vy pocit výslednou adr. 


PUSH 

H 

; uschovej ji 


MVI 

E, 1F 

; počet znaku v generátoru 


INX 

H 

> výhrad byte 'pro délku 


XRR 

fl 

i uvodni byte nastav 


MOV 

M, fl 

; na nulu 


INX 

H 

; dals i ‘pozice 


CRLL 

BUFĚ 

i oddělovač pryč 

CGRS1 : 

CRLL 

BUFĚ 

i znak z buf Peru 


MOV 

fl, C 



MOV 

' M, R 

> do generátoru 


INX 

HL 

> dals i pozice 


DCR 

E 

; sniž zbyvajici počet 


JZ 

CGRSK 

; znaku, je-li @ ukonči to 


RNI 

80 

i je-li 7. bit nastaven 


JZ 

CGRS1 

i konec tvořeni znaku 


MVI 

R, 20 

; vypočti délku 


SUB 

E 



POP 

H 

u ulož ji 


MOV 

M, fl 



RET 



.CGRSK: 

ORI 

80 

> vyčerpaná povolena, délka 


DCX 

HL 

i nastav 7. bit na jedničku 


MOV 

M, fl 

i ulož to 

. 

MVI 

fl, 21 

> nastav maxima lni 

— 

POP 

H 

; délku 


MOV 

M, fl 



RET 


i navrat 

Vytisknuti preddef inove.neho znaku 

CGRRMW : 

CRLL 

PRRRM 

i c i s 1 o generátoru 


MOV 

fl, L 



ORR 

R 



JNZ 

CGRC 



INR 

R 


CGRC: 

RNI 

0F 

j uvazuje pouze 15 generátoru 


LXI 

H, CGR-22 

> adresa, generátoru 


LXI 

D, 22 



CRLL 

NRSOB 

i vypočti adresu 


MOV 

fl, M 

i testuj délku 


ORR 

fl 



RZ 


i vrat se je-li 0 


MOV 

E, fl 



INX 

H 



JMP 

WRITE 

; jdi tisknout 

GEN INI : 

LXI 

H, CGR 

; inicializuje generátor 


LXÍ 

D, 1FF 

;v delce 1/2 kbyte 

GEN INI: 

XRR 

fl 



MOV 

M, fl 



INX 

H 



DCX 

D 



MOV 

fl, E 



ORR 

D 



JNZ 

GEN INI 

t pokračuj 


RET 


i hotovo 

PMOVE : 

CRLL 

SXV 

; funkce PMOVE 


JMP 

MOVR 


DOT: 

CRLL 

SXV 

i funkce POIN^ 


JMP 

POINTA 


RDOT: 

CRLL 

SXV 

; funkce RPOINT 


JMP 

POINTR 


SSIZE: 

CRLL 

PRRRM 

; funkce SIZE 


SHLD 

SIXX 

i XX 


CRLL 

BUFĚ 



CRLL 

PRRflM 

' 


SHLD 

SIXV 

; XV 


CRLL 

BUFĚ 



CflLL - 

PRRRM 



SHLD 

SIVX 

,• VX 


CRLL 

BUFĚ 



CRLL 

PRRflM 




SHLD 

RET 

SIVV - 

i vv 

DRAM: 

CRLL 

RVCH 

i funkce DRRW 


CRLL • 

SXV 



CRLL 

VECTfl 



JMP 

RVCHN 


LTVPE : 

CRLL 

PRRflM 

; funkce LTVPE 


MOV 

fl, L 



RLC 




RLC 


; parametr násob 4 


STR 

TPLI 

; ulož jej 


STR 

RKLI 



STR 

RTLI 



MVI 

fl, 80 



STR 

PSLI 



STR 

STWP 

i iniciali zuj proměnně 


RET 


i pro typ cary 

SETS : 

CRLL 

PRRflM 

i funkce SPEED 


MOV 

fl, L 



STR 

SPD 

;uloz rychlost 


JMP 

RVCHN 


RVCH : 

LDR 

RTLI 

> přepočte rychlost 


CPI 

0 

; na skutečnou 


JZ 

RVCHN 

; podle délky kroku 


STR 

TPLI ' 

; a typu cary 


LDR 

STWP 



STR 

PSLI 



MVI 

B, 18 



CRLL 

RET 

SPEDfl 


RVCHN : 

MVI 

B, 0B 

, nastav rychlost 


CRLL 

SPEDfl 

; pro přesuny 


XRR 

fl 



STR 

TPLI 



LDR 

PSLI 



STR 

STWP 



MVI 

fl, 80 



STR 

PSLI 



RET 



SPEDA : 

LDR 

SPD 



RDD 

B 



STA 

SPED 



RET 



RMOVE : 

CflLL 

SXV 

i funkce RMOVE 


JMP 

MOVR 


RLINE : 

CflLL 

RVCH 

) funkce RLINE 


CflLL 

SXV 



CflLL 

VECTR 



JMP 

RVCHN 


SXV: 

CRLL 

PflRRM 

; načte z bufferu 


PUSH 

H 

í souřadnice X a. V 


CflLL 

BUFĚ 



CflLL 

PRRRM 



MOV 

B, H 

> do BC 


MOV 

C, L 



POP 

D 

> a DE 


RET 


* 

RXIS : 

CflLL 

BUFĚ 

i funkce ftXIS 


MOV 

fl, C 



CPI 

31 ' 

i os a do směru 


JZ 

RXISX 

) X 


CRLL 

RXIfl 

i parametry osy 

DILV : 

LXI 

B, 0 



LXI 

D, 0FFFC 



CflLL 

VECTR 

; dilek 


LXI 

B, 0 



LXI 

D, 8 



CRLL 

VECTR 



LXI 

D, 0FFFC 



LXI 

B, 0 



CflLL 

VECTR 



LXI 

D, 0 



LHLD 

PITCH 



MOV 

B, H 



MOV 

C, L 



CRLL 

VECTR 

i na. dals i pozici 


LDR 

REPE 

> sniž počet opakovaní 


DCR 

fl 



JZ 

RXVK 

; konec cfsy 


STR 

REPE 

i jeste ne 


JMP 

DILV 


RXISX: 

CflLL 

RXIR 

i parametry osy 

DILX: 

LXI 

B, 0FFFC 

> di lek 


LXI 

D, 0 



CRLL 

VECTR 



LXI 

B, 8 



LXI 

D, 0 



CRLL 

VECTR 



LXI 

B, 8FFFC 



LXI 

D, 0 



CRLL 

VECTR 



LXI 

B, 0 




LHLD 

PITCH 



CflLL 

COMP 



XCHG 




SHLD 

SIXX 



CflLL 

VECTR 

z na. dal* i pozic i 


SHLD 

SIVV 

; XX, VV = -velikost 


LDfl 

REPE 

; sniž počet opakováni 


LXI 

H, 0 



DCR 

R 



SHLD 

SIVX 



JZ 

flXXK 

; konec osy 


SHLD 

SIXV 

; XV, VX = 0 


STA 

REPE 

z jeste ne 


RET 




JMP 

DILX 


VISI : 

LDfl 

SIZE 

> podle SIZE vypočte 






INR 

fl 

; do HL skutečnou velikost 

flXIfl : 

CRLL 

BUFĚ 

z ne.cte parametry osy 


MVI 

H, O 



CRLL 

PflRflM 



MOV 

L, fl 



SHLD 

PITCH 

, roztec 


RET 




CRLL 

BUFĚ 


DIflC: 

CflLL 

PflRflM 

; nastaví nebo zru* i 


CRLL 

PflRflM 



MOV 

fl, L 

; diakriticky režim 


MOV 

A, L 



STfl 

flSCD 



STR 

REPE 

; počet di lku 


RET 




RET 



SCflLE : 

CflLL 

PflRflM 

> nastaví velikost znaku 






MOV 

fl, L 


flXXK: 

LXI 

D, 0 

; poslední dilek 


STfl 

SIZE 



LXI 

B, OFFFC 



MVI 

fl, 0 

i a uhel tisku 0 


CflLL 

VECTR 



JMP 

flNGLE+4 



LXI 

D, 0 


PTEST: 

LDfl 

REZI 

;neni-li nastaven textový 


LXI 

b, e 



CPI 

1 

) režim nastav ho 


CRLL 

VECTR 



CNZ 

TEXTR 



LXI 

D, 0 



CflLL 

CR 



LXI 

B, 0FFFC 



CflLL 

LF 



JMP 

VECTR 

■ i 


CflLL 

CH26 


flXVK: 

LXI 

B, 0 



LXI 

H, TSTTB 

i vytiskni text 


LXI 

D, 0FFFC 



MVI 

fl, 0E 

; podle tabulky 


CRLL 

VECTR 

* 

TSTT : 

PUSH 

PSW 



LXI 

B, 0 



PUSH 

H 



LXI 

D, 8 



MOV 

C, M 



CflLL 

VECTR 



CflLL 

PRINT 



LXI 

B, 0 



POP 

H 



LXI 

D, 0FFFC 

, 


INX 

H 



JMP 

VECTR 



POP 

PSW 







DCR 

fl 


GPRINT : 

CflLL 

BUFĚ 

z Funkce GPRINT 


JNZ 

TSTT 



MOV 

fl, C 



CflLL 

CR 



CPI 

OD 

z je-li CR znamena to konec 


CflLL 

LF 



RZ 


z retezce 


CflLL 

MONOP 



LDR 

RDSI 



MVI 

fl, 4 



ANI 

80 


PTES2 : 

- PUSH 

PSW 

i a podtrhni ho 


CZ 

PŘEVOD 

z převede znak podle prep. 


LXI 

B, O 



MOV 

fl, C » 



LXI 

D, 1EF 



RNI 

80 



CflLL 

VECTR 



MOV 

A, C 

z je-li stalém vetsi nez 127 


LXI 

B, 0FFFE 



JNZ 

GTEC 

zvytisken tečku 


LXI 

D, 0FE11 



CRLL 

PCHR 

z vytiskni znak 


CflLL 

MOVR 



JMP 

GPRINT 

z znovu 


POP 

PSW 


GTEC : 

MVI 

fl, 2E 

z tečka 


DCR 

fl 



CRLL 

PCHR 

z vytiskni 


JNZ 

PTES2 



JMP 

GPRINT 

z znovu 


CflLL 

LF 







JMP 

TEXTT 


NÁSOB : 

DAD 

D 

z fl krát přičte DE k HL 

GRflFR : 

MVI 

L, 1 

j velikost znaku 1 


DCR 

fl 



CflLL 

SCflLE+3 



JNZ 

NÁSOB 



MVI 

L, 0 

; typ cary O 


RET 




CflLL 

LTVPE+3 







MVI 

fl, 2 

; sjraFicky režim 

flNGLE : 

CRLL 

PRRAM 

z Funkce flNGLE 


STfl 

REZI 

' 


MOV 

fl/ L 

z uhe 1 do fl 


CflLL 

MONOP 

j přesun na zacatek 


CPI 

0 



LHLD 

STPX 

zinicializuj 


JZ 

VODP 

z vodorovné vpravo 


SHLD 

SKUTX 

; souřadnice 


CPI 

1 



CflLL 

NULXV 



JZ 

DOL 

z svisle dolu 


RET 




CPI 

2 


TEXTT : 

CflLL 

CH408 



JZ 

VODL 

z vodorovné vlevo 


JMP 

CR 



CPI 

3 







JZ 

NflH 

z svisle nahoru 

.TEXTR: 

MVI 

L/0 

) typ cary 0 


RET 


z neznám 


CflLL 

LTVPE+3 


VODP : 

CflLL 

VISI 



MVI 

fl/1 

z textový režim 


SHLD 

SIXX 

z XX, VV = velikost 


STfl 

REZI 



SHLD 

SIVV 



STfl 

flSCD 

z flSCI I režim 


LXI 

H/ 0 



LHLD 

SKUTX 



SHLD 

SIXV 



XCHG 




SHLD 

SIVX 

z XV, VX * 0 


LHLD 

STPX 



RET 




DflD 

D 


DDL: 

CflLL 

VISI 



SHLD 

STPX 

z vypočti skutečnou X 


SHLD 

SIVX 

z VX = velikost 


LXI 

H, 0 



MVI 

fl/ 1 



SHLD 

NOPX 



STA 

PRZ 



SHLD 

SIXV 



CflLL 

COMP 



SHLD 

SIVX 

z parametry pro znak 


SHLD 

SIXV 

z XV ■ -velikost 


CflLL 

CH408 

z 80 znaku na radek 


LXI 

H/ 0 



XRfl 

fl 



SHLD 

SIXX 



STfl 

UKRfl 



SHLD 

SIVV 

z XX, VV = 0 


STfl 

UKZR 

z znuluj ukazatele 


RET 




CflLL 

FflST+4 

z jednoduchý krok 

NAH : 

CRLL 

VISI 



RET 




SHLD 

SIXV 

; XV * velikost 

DEVET : 

CflLL 

BUFĚ 

z přísel kod *09 


MVI 

fl, 1 



MOV 

fl, C 

zeti dalsi znak 


STR 

PRZ 



CPI 

9 



CRLL 

COMP 



JZ 

DEV1 

z je to opět *09 


SHLD 

SIVX 

z VX = -velikost 


STfl 

PRECH 

z není - vrat jej 


LXI 

H, 0 



MVI 

R, 1 

z do buFFeru 


SHLD 

SIXX 



STfl 

BUF I NT 



SHLD 

SIVV 

z XX, VV .» 0 


RET 


z a zpět 


ret 



DEV1 : 

CflLL 

BUFĚ 

z dalsi znak 

VOD l.: 





MOV 

fl, C 



CflLL 

VISI 



CPI 

9 



MVI 

fl, 1 



JZ 

CH80 

z zase *09 


STR 

PRZ 



CPI 

0B 




. JZ 

CH408 

; tentokrát *0B 

MUS2 : 

LXI 

H/0FA • 


STA 

PRECH 

) ani jeden z nich 


SHLD 

KLOPA 


MVI 

fí, 1 

i vrat, to do buff eru 


SHLD 

KLOPB 


STA 

BUF I NT 



MVI 

A / 1 


CALL 

PARAM 

>cti cislo 


STA 

CKLO 


MOV 

A, L 



MVI 

A/ 30 


STA 

PRST 

j nastav počet r. na stránku 


'STA 

KMIT 


CALL 

BUFĚ 

ž oddělovač pryč 


JMP 

MUSIC 


JMP 

STRAN 

; nastav novou stranu 

MUS3 : 

LXI 

H/ 1F4 

CH80: 

CALL 

CR 

j udelej CR 


SHLD 

KLOPB 


LXI 

H, 2 

;nastav velikost znaku 


SHLD 

KLOPA 


SHLD 

SIXX 



MVI 

A/ 1 


SHLD 

SIVV 



STA 

CKLO 


MVI 

A/ 78 

i a počet znaku 


MVI 

A/ 70 


STA 

PZRA 



STA 

KMIT 


RET 




JMP 

MUSIC 

CH408-. 

CALL 

CR 

i udelej CR 

MUSIC: 

LDA . 

CKLO 


LXI 

H, 3 

žnastav velikost 


STA 

CKL01 


SHLD 

SIXX 



LHLD 

KLOPA 


SHLD 

SIVV 



SHLD 

KLOPÍ 


MVI 

fit 50 

; a počet znaku 

MUSV : 

CALL 

BEEP 


STA 

PZRA 



LHLD 

KLOPÍ 


RET 




DCX • 

H 

CH26: 

CALL 

CR 

> udelej CR 


MOV 

A / L 


LXI 

H, 6 

; nastav velikost znaku 


ORA 

H 


SHLD 

SIXX 



SHLD 

KLOPÍ 


SHLD 

SIVV 



JNZ 

MUSV 


MVI 

Aí 28 

> a počet znaku 


LDA 

CKL01 


STA 

PZRA 



DCR 

A 


RET 




STA 

CKL01 

PRINÝ: 

LDA 

RDSI 

i podle prepinace znak 


JNZ 

MUPRO 


ANI 

80 



LHLD 

KLOPB 


CZ 

PŘEVOD 

; převed 


SHLD 

KL0P2 


MOV 

A, C 

; neprevadej 

MUSN : 

LDA 

KMIT 


ANI 

80 

;je-li s 8. bitem 


CALL 

WAITA 


MOV 

A, C 



CALL 

TLAČ 


JNZ 

PTECK 

; tiskni tečku 


LHLD 

KL0P2 


JMP 

PRNI 

; neni- tiskni jej 


DCX 

H 

PTECK : 

MVI 

A, 2E 

/ kod tečky 


MOV 

A/ L 


JMP 

PRNI 

/vytisknout 


ORA 

H 

NOVR : 

PUSH 

B 

/schovej si BC 


JZ 

MUSIC 


CALL 

CR 

; ude 1 e j CR 


SHLD 

KL0P2 


CALL 

LF 

> jeste LF 


JMP 

MUSN 


POP 

B 

; obnov BC 

MUPRO : 

MVI 

B/ 68 


RET 


> a zpět 


CALL 

P50 

PRNI :. 

CALL 

PCHR 

; jdi tisknout 


JMP 

MUSIC+6 


LDA 

UKZR 

; počet znaku 

TLAČ: 

LDA 

RDSI 


INR 

A 

i zvyš o jendu 


ANI 

20 


MOV 

B/ A 



RNZ 


mm 

LDA 

PZRA 

i porovnej s maximálním 

STISK: 

LDA 

RDSI 


CMP 

B 



ANI 

20 


JZ 

NOVR 

;s tejne/ udelej novou radku 


JZ 

STISK 


MOV 

fit B 



POP 

H 


STA 

UKZR 

; ulož to zpět 


LDA 

KR025 


RET 




ANI 

7F 

PŘEVOD : 

LXI 

H, TABPR 

i adresa převodní tabulky 


STA 

RDSO 


MOV 

A, M 

i kod z tab. do A 


RET 



CMP 

C 

i porovnej s prevadenym 





JZ 

VVMEN 

/ hurá - je to on 

BEEP : 

LDA 

KLM 


CPI 

0 

> neni uz konec tabulky ? 


XRI 

20 


RZ 


> je - navrat 


STA 

KLM 


INX 

H 

j neni - dalsi položka 


ORI 

80 


INX 

H 



MOV 

B, A 


JMP 

PREV0D+3J a' znovu 


LDA 

KR025 

VVMEN : 

INX 

H 

i následujíc i pozice 


ORA 

B 


MOV 

C, M 

i přesun 


STA 

RDSO 


RET 


; a vrat^ se 


LDA 

KMIT 






CALL 

WAITA 

STRAN : 

XRA 

A 

i znuluj 


JMP 

TLAČ 


STA 

UKZR 

; ukazatel znaku 

WAITA: 

DCR 

A 


STA 

UKRA 

> ukazatel radek 


RZ 



LDA 

RDSI1 

; testuj typ papiru 


JMP 

WAITA 


ANI 

20 


CR: 

XRA 

A 


JZ 

STRR 

t -> role 


STA 

UKZR 


CALL 

MUS2 

; A4 ■ pískej 


LXI 

Hz 0 


LHLD 

STPX 

; vypočti vzdálenost 


SHLD 

NOPX 


MVI 

fit 1 

i od okraje 


RET 



STA 

PRZ 


LF: 

LDA 

UKRA 


CALL 

COMP 

i a násob -1 


INR 

A 


XCHG 




STA 

UKRA 


LXI 

B, 190 

/konstanta V pro novy zac. 


LXI 

H/ PRST 


CALL 

MOVR 

/ přesun 


CMP 

M 


JMP 

NULXV 

/nuluj souřadnice 


JZ 

STRAN 

STRR : 

CALL 

MONOP 

/ přesun na pozici dalšího t. 


CALL 

VVPV 


LXI 

D/ 0 



MVI 

A/ 1 


LXI ' 

B/ 0FF10 

/konstanta pro vynecháni 


STA 

PRZ 

STRR1 : 

CALL 

MOVR 

; místa 


CALL 

COMP 


CALL 

CR 

> udelej CR 


XCHG 



CALL 

LF 

> jeste i LF 


LHLD 

NOPV 


XRA 

A 

; znuluj ukazatel radek 


DAD 

D 


STA 

UKRA 



SHLD 

NOPV 


RET 


; navrat 


RET 


MUSÍ: 

LXI 

H, 64 

; inicializace zvukového 

CHCOL : 

LDA 

COLR 


SHLD 

KLOPA 

) generátoru na standartni 


INR 

A 


LXI 

H, 1 

/hodnotu pro 3 typy piskani 


CPI 

5 


SHLD 

KLOPB 



JNZ 

COL1 


MVI 

A/ 1 



MVI 

A/ 1 


STA 

CKLO 



JMP 

C0L1 


MVI 

A* 30 


MONOP : 

LHLD 

NOPX 


STA 

KMIT 



XCHG 



JMP 

MUSIC 



LHLD 

NOPV 


i v 1 as tni generováni zvuku 

) jedno pisknuti 

;odpisk*no ? -> ne 
i ano 

> budeme chvi 1 i pot i c hu 
) testuj tlačítko 


; pauza 

i je-li stisk tl. 
i ne 

i Ano -> cekej 
jns. jeho puštěni 

> a zhAsni diodu 

i podle frekvence změn i 
i stAV reproduktoru 

> + rozsvícena diodA 


i a jeste otestuje tlAcitko 
; smyckA 

> znuluj 

> počet znAku 

i tisk bude od krAje 
i provede LF 

<test nA počet rAdek 
> maxima lni -> strAnkuj 
i vypočti V 


i tisk bude o rAdku niz 
; nastaví tiASledujici bArvu 

; byl a- li 4 nAstAvi znovu 1 
> přesun nA poz. pristiho znAku 



nov 

B, H 


MOVR : 

CALL 

PNUP 

i zvedni pero 


MOV 

C, L 



JMP 

RELA 

i relativní přesun 


JMP 

MOVA 

. 

VECTR : 

CALL 

PNDW , 

; spust pero 

BASP: 

LDA 

UKZR 

i proved© zpětný krok 


JMP 

RELA 

> relativní přesun 


OCR 

A 


POINTR: 

ČALL • 

PNUP 

; zvedni pero 


INR 

A 



CALL 

RELA 

, relativní přesun 


R2 


; vrat se jsi-li ns. zac. radky 


JMP 

PNPT 

; udelej bod 


OCR 

A 







STA 

UKZR 


PNPT : 

CALL 

PNDW 

, spust pero 


CALL 

WPX 



JMP 

PNUP 

, zvedni pero *» bod 


MVI 

A, 1 


SPEED : 

ADI 

8 

i nastav rychlost 


STA 

PRZ 



STA 

SPED 



CALL 

COMP 



RET 




XCHG 



TEST: 

JMP 

VTEST 



LHLD 

NOPX 







DAD 

D 


PORG: 

MVI 

A, 14 

/nastav si rychlost 


SHLD 

NOPX 

; X nastav na předchozí znak 


STA 

SPED 


i 

RET 




STA 

P185 


WPX: 

LHLD 

SIXX 

/vypočte X podle 


PUSH 

D 

, schovej zadané X, V 


MOV 

A/ L 

; sirky znaku 


PUSH 

B 



MVI 

A, 6 



MVI 

A, 1 



XCHG 




STA 

SPĚN 

i pero je dole 


LXI 

H, © 



LXI 

B, 8 



JMP 

NÁSOB 



MOV 

D, B 


LINUP : 

LDA 

UKRA 

/ provede posun o radek, zpět 


MOV 

E, C 



DCR 

A 



CALL 

MOVR 

i par kroku doprava nahoru 


INR 

A 



MVI 

A, 08 

) uprav rychlost 


RZ 


; zac. stránky - vrat se 


STA 

SPED 



DCR 

A 



LXI 

H, 6A4 

; maximální X 


STA 

UKRA 



SHLD 

STPX 



CALL 

VVPV 



LXI 

H, 0FE70 

/V po založeni papíru 


XCHG 




SHLD 

STPV 



LHLD 

NOPV 



POP 

B 



DAD 

D 



PUSH 

B 

, obnov V - přesun na zadané V 


SHLD 

NOPV 

;V nastav o radek zpět 


LXI 

D, 0 

, okamžité a na 0 do X 


RET 




CALL 

MOVA 


VVPV : 

LHLD 

SIVV 

; vypočte V podle 


POP 

B 

, obnov V. . 


MOV 

A/ L 

; vysky radky 


PUSH 

B 

\ 


ANI 

0FE 



LXI 

D, 58 

; kousek doprava 


RRC 




CALL 

MOVA 



MOV 

. E, A 



XRfi 

A 



MVI 

D, 0 



STA 

STPX 



DAD 

D 



STA 

TPLI 



XCHG 




CALL 

NULXV 

, znuluj souřadnice , 


LXI 

H, 0 



POP 

B 



MVI 

A, 8 



POP 

D 



CALL 

NÁSOB 



CALL 

MOVR 

, přesun na zadané X, V 


RET 



KTST : 

MVI 

A, 0A 


PCR : 

CALL 

CR 

; podle prep. uděl a CR 


STA 

P185 



LDA 

RDSI1 

ž nebo CR + LF 


LXI 

H, 3 

/•standartni velikost znaku 


ANI 

80 



SHLD 

SIXX 



RNZ 




SHLD 

SIVV 



JMP 

LF 



MVI 

L, 0 


PLF : 

CALL 

LF 

; podle prep. uděl a LF 


SHLD 

SIXV 



LDA 

RDSI1 

i nebo LF + CR 


SHLD 

SIVX 



ANI . 

48 



SHLD 

RSCD 

j režim 


RNZ 




MVI 

A, 80 



JMP 

CR 



STA 

NARW 

j mezera 

PRST : 

CALL 

PARAM 

ž nastav krok 


STA 

PSLI 

, s tav pera 


MOV 

A, L 



RET 


, 


ANI 

1 


RELR : 

LHLD 

STPX 

, k X přičti relativní DX 


RLC 




DAD 

D 

i = nova X 


RLC 




XCHG 




RLC 




LHLD 

STPV 

; totez s V 


RLC 




DAD 

B 

\ 


STA 

KR025 



MOV 

B, H 



ANI 

10 



MOV 

C, L 

) a muzes udělat abs. přesun 


JNZ 

F025 


ABSO : 

LHLD 

STPX 

, DE = zadana Xz 


MVI 

A/ 0 

; uprav rychlost 


XCHG 


; HL = skutečna X 


JMP 

SETS+4 

; pro 0. 125 mm 


SHLD 

STPX 

, DE <=> HL > X <=> Xz 

F025 : 

MV I 

A, 10 

; pro 0. 25 mm 


SHLD 

NOPX 

; a ulož na novou poz. tisku 


JMP 

SETS+4 



CALL ' 

SMR 

/Zjisti směr posuvu pro X 




/ převod SHARP -> ASCII 


PUSH 

H 

i schovej rozdíl X a Xz 






PUSH 

B 

i schovej Vž 

TRBPR : 

DB 

0D7, 10 

0FC/ 17/ 5E/ 18 


MOV 

C, A 

; C = směr posunu 


DB 

. 0F» 0C, 

©E/ 8/ 0C/ 7 


POP 

D 

; DE = předešle BC tj. zadana Vz 


DB 

0C6, 19 

, 5F/ 1A/ 0AE/ 1B 


LHLD 

STPV 

j HL = skutečna V 


DB 

8FB, 1C 

0FF, 1E/ 0CF/ 1F 


XCHG 


/ DE <=> HL / V <=> Vz 


DB 

8B, 5E, 

93/ 68, 0A1, 61 


SHLD 

STPV 



DB 

9R, 62/ 

9F, 63/ 9C, 64 


SHLD 

NOPV 

i ulož 


DB 

92/ 65/ 

0AA, 66, 97, 67 


CALL 

SMR 

;a zjisti směr pro V 


DB 

98/ 68/ 0A6/ 69/ 8AF/ 6A 


RLC 




DB 

8A9z 6B 

, 0B8, 6C, 0B3, 6D 


RLC 




DB 

0B0/ 6E 

0B7, 6F, 9E, 70 


RLC 




DB 

OA0/ 7Í 

, 9D, 72, 0A4, 73 


RLC 


/do vyssich 4 bitu v A 


DB 

96/ 74/ 

0A5, 75, 0AB, 76 


MOV 

B, A 



DB 

0A3/ 77 

, 9B, 78, 0BD, 79 


ORA 

c 

; s loz s C 


DB 

0A2/ 7A 

, OBÉ, 7B, 80, 7D 


STA 

Dl RE 

/ <= směr do V p. do X 


DB 

94/ 7E/ 

0 


POP 

D 

;obnov rozdíl X a Xz 




, tabulka tisku pro test 


RZ 


/jsou- li oba posuny © vrat se 

TSTTB : 

DB 

2A/ 2A/ 

2A, 20, 4D, 5R 


MOV 

A, L 



DB 

2D/ 38/ 

32, 31, 20, 2A 


SUB 

E 



DB 

2A/ 2A 



MOV 

A, H 







SBB 

D 

/test/ který posun je vetsi 

MOVR : 

CALL 

PNUP 

, zvedni pero ' 


MOV 

. A, C 

; A = s mer pos unu X 


JMP 

ABSO 

, přesun na X, V 


JC 

DALX 

;skoc protože <Vz-VX<Xz-X> 

VECTfi : 

CALL 

PNDW 

, spust pero 


XCHG 


/ DE <=> HL ; <Xz-X> <=> <Vz-V> 


JMP 

ABSO 

; pres uň na X, V 


MOV 

A, B 

j A = s mer do V 

POINTA 

CALL 

PNUP 

i zvedni pero 

DALX : 

STA 

DIR1 

/ ulož směr 


CALL 

ABSO 

; přesun na X, V 


SHLD 

DIFF 

u ulož taky rozdíl 


JMP 

PNPT 

; udelej bod 


LXI 

H, 14 

jmale pozastaveni 



CRLL 

FMOT1 




CRLL 

PCHR4 



MVI 

fl, 29 




MOV 

flz M 



STA 

RCCE 

; rozběhová, rychlost 



ORR 

fl 



MOV 

B, D 

; BC = rozdíl 



JP 

WRCON 



MOV 

C, E 




XRfl 

fl 



XRfl 

fl 




STfl 

COUNZ 



SUB 

E 




CRLL 

PCHR3 



MOV 

L, r 



WRCON: 

INX 

H 

ždalsi pozice znaku 


MVI 

fl/ 0 




DCR 

E 

/ zbyvaj ic i počet 


SBB 

D 




JMP 

WR I TI 

/ a znovu 


MOV 

H/ R 

ž HL = DE * -1 


BS08: 

PUSH 

H 

;neni-li nastaven bs 


XRR 

fl 




LXI 

H, BS 

z na nulu nedela nic 


MOV 

fl/ D 




XRfl 

fl 



RRR 





CMP 

M 



MOV 

D, fl 




MOV 

M/ ft 



MOV 

fl/ E 




JNZ 

BSNfl 



RRR 





LHLD 

NOPX 

/jinak nastaví tisk znaku 


MOV 

E/ R 

; DE = DE / 2 



SHLD 

PREX 

,na novou pozici 

RBS1 : 

PUSH 

H 

/ schovej HL a DE 



LHLD 

NOPV 



PUSH 

D 




SHLD 

PREV 



XCHG 


; DE <==> HL 


BSNfl : 

POP 

H 



MOV 

H/ B 




RET 




MOV 

Lz C 

/ HL = BC 


PCHR : 

PUSH 

H 



DflD 

H 




LXI 

H/ BS 



OCX 

H 

)HL 3 HL * 2 - i 



CPI 

8 



DflD 

D 

/ HL = HL + DE 



JNZ 

NOBS 



LXI 

Hz RCCE 




MOV 

M/ fl 

ž ma- li k od *08 


JNC 

RBS2 

/je-li HL >= 8 skoč 



POP 

H 

; pouze jej ulož 


LDR 

P185 




RET 


; a return 


CMP 

M 



NOBS : 

ANI 

7F 

ž pouze 7 bitu 


JZ 

RBS2 




MOV 

Cz fl 



DOR 

M 




CRLL 

BS08 

/ vyhodnot by 1-1 i kod *08 

ABS2: 

MVI 

fl/ 28 




LDfl 

ASCD 



SUB 

M 




ORA 

fl 



SUB 

C 




JNZ 

NODIfl 

ž skoč pri ASCII režimu 


MVI 

fl/ 0 




MOV 

A/ C 



SBB 

B 




CPI 

7B 



JC 

ABS3 




JC 

NODIfl 

;skoc neni-li to d i akr. znak 


INR 

M 




RDI 

5 

z zvyš na diakr. znaménka 

ABS3 : 

LHLD 

DIFF 




MOV 

Cz fl 



POP 

D 




INR 

M 



ORD 

D 



NODIfi : 

MOV 

flz C 

z znak do fl 


XCHG 





CPI 

10 

/ je-li mens i nez ' 10 


POP 

H 




JC 

PCHR2 

z skoč 


PUSH 

H 




ANI 

0F8 

;ne - znuluj 3 nejnizsi bity 


DflD 

D 




RflR 


ž vyděl 2 


LDR 

DIR1 




RRR 


ž 4 


JNC 

ABS4 




ADI 

0FC 

ž odečti 3 


XCHG 





ADI 

LOW ATB1 

ž+ nizsi byte adresy tab. 


LDR 

Dl RE 




MOV 

Lz fl 

ž do L 

ABS4: 

PUSH 

D 




MVI 

fl, 0 



CRLL 

ELEM 




flCI 

HIGH flTBl 


DCX 

B 




MOV 

Hz fl 

ž do H vyssi byte tabulky 


MOV 

fl/ B 




MOV 

fl, M 



ORR 

C 




INX 

H 



POP 

D 




MOV 

H, M 



POP 

H 




MOV 

L, fl 

ž do HL adresu generátoru 


JNZ 

RBS1 




MOV 

fl, C 



RET 





ANI 

7 

ž pouze 3 nejnizsi bity 

SMR: 

MOV 

fl/ L 

i vrat i R = 0 pro skut. 

= zadané 


MOV 

C, fl 

' 




ž fl = 1 pro skut. 

< zadané 


JZ 

VVZN 

/ jsou-1 i 0 skoč 




/ fl = F pro skut. 

> zadané 

SKZN : . 

MOV 

fl, M 

ž nejsou 


SUB 

E 




ORfl 

fl 



MOV 

L/ R 

LU 

i 

_l 

li 

_) 



INX 

H 



MOV 

fl/ H 




JP 

SKZN 

ž testuj nej vyssi bit 


SBB 

D 




DCR 

C 



MOV 

H/ fl 

i H = H - D - předchozí 

znám. 


JNZ 

• SKZN 

ž adresu na znak podle nich 


DRD 

H 

i HL = HL * 2 


VVZN : 

MVI 

fl, 8 

ž znak v CG vybrán 


JNC 

SMVL 

; -> je-li HL kladné 



CRLL 

PCHR4 



XRR 

fl 

; záporné - převed na. kla.dne 

PCHR1 : 

MOV 

fl, M 



.SUB 

L 




CflLL 

PCHR4 



MOV 

Lz R 




MOV 

fl, M 



MVI 

fl/ 0 




INX 

H 



SBB 

H 




ORfl 

fl 



MOV 

Hz fl 

z HL = -1 * HL 



JP 

PCHR! 



MVI 

fl/ OF 

; příznak a navrat 


PCHR2 : 

POP 

H 



RET 




PCHR3 : 

PUSH 

H 


SMVL : 

MOV 

flz H 




LDfl 

NftRW 



ORR 

L 




RLC 




RZ 


/.je-li HL = 0 vrat se 



RflL 




MVI 

fl/ 1 




ADI 

0F6 



RET 


; jinak příznak a navrat 


CMfl 



WRITE: 

XRR 

fl 




MVI 

Cz 0 



STR 

CQUNZ 




CflLL 

PCHR5 


WRIT1: 

MOV 

flz E 




POP 

H 



ORR 

fl 

/je-li délka- nulová 



RET 




RZ 


; vrat s e 


PCHR4 : 

MOV 

Cz ft 



LDR 

COUNZ 




ANI 

? 



ORR 

fl 

žneni-li 1. znak 


PCHR5 : 

PUSH 

H 



JNZ 

WRIT3 

; skoč 



PUSH 

D 



MOV 

fl/ M 

zje to prvni znak 



PUSH 

PSW 



ORR 

fl 

/testuj je-li 0 



LHLD 

SIXX 



JZ 

WRIT2 

/ je - tak skóc 



XCHG 


‘ 


MOV 

R/ M 

> není z jdi jej vytisknout 


LHLD 

PREX 



CRLL 

PCHR 




CflLL 

PCHR8 



JMP 

WRCON 




XCHG 



WRIT2 : 

INR 

fl 




MOV 

flz C 



STR 

COUNZ 




ANI 

38 



CRLL 

BS08 




RflR 



WRIT3: 

MOV 

fl/ M 




RflR 





RfiR 




MOV 

fi/ H 



LXI 

H, BS 



ORfi 

L 



fiDD 

M 



JNZ 

FMOT1 



MOV 

B, fi 



RET 




LHLD 

SIVX 







XCHG 



PŘELI : 

PUSH 

B 

; k re* 1 i prerus ovanou linku 


CfiLL 

PCHR8 



PUSH 

PSW 

;je-li povolena 


POP 

PSW 



fiNI 

80 

; mas - 1 i pouze ‘ pres ouvat 

' 

PUSH 

H 



JZ 

LINR 

; nepřerušuj 


LHLD 

SIXV 



LDfi 

TPLI 

i nepřerušuj také 


XCHQ 




ORfi 

R 

/ když je typ cary 


LHLD 

PREV 



JZ 

LINR 

i nastaven na plnou 


CfiLL 

PCHR8 



LDfi 

FIKLI 

; sniž počet zbyvajicich kroku 


MOV 

fl/ B 



DCR 

fi 

i s okamžitým stavem pera 


XCHQ 




JZ 

LINZ 

/je-li 0 musis jej změnit 


LHLD 

SIVV 



STfi 

fiKLI 

;uloz a nepřerušuj 


XCHQ 



LINR : 

POP 

PSW 

i vy stupni slovo pro motory 


CPILL 

PCHR8 



MOV 

B/ fi 



PUSH 

H 



LDfi 

PSLI 

) nastav pero 


MOV 

fi. C 



ORI 

7F 



ANI 

40 



flNfi 

B 

/Podle aktuálního stavu 


JZ 

PCHR6 



STfi 

MOTR 

j pos 1 i to na motory 


LHLD 

NOPX 



POP 

B 

< 


XCHQ 




RET 




LHLD 

NOPV 


LINZ: 

LDfi 

PSLI 

) cti stav pera 


MOV 

Bj h 



ORI 

7F 

> ostatní do jedničky 


MOV 

C, L 



MOV 

B, fi 



LDfi 

SPĚN 



POP 

PSW 

i obnov výstupní slovo 


ORfi 

fi 



fiNfi 

B 

/orizni podle pera 


CZ 

MOVfi 



STfi 

MOTR 

i pos 1 i to na motory 


POP 

B 



CfiLL 

P50MS 

> počkej na změnu polohy pera 


POP 

D 



LDfi 

PSLI 

jzínvertuj stav pera 


CfiLL 

VECTfi 



XRI 

88 



JMP 

PCHR7 



STfi 

PSLI 

i a ulož jej 

PCHR6: 

CfiLL 

PNUP 



LDfi 

TPLI 

; obnov aktualni 


POP 

H 



STfi 

fiKLI 

> typ cary » 


SHLD 

NOPV 



POP 

B 



POP 

H 



RET 




SHLD 

NOPX 






PCHR7 : 

POP 

D 


P50MS : 

MVI 

B/ 19 

/ zpozdeni 50 ms 


POP 

H 


P59 : 

MVI 

Ci 0F4 



RET 



P50fi : 

DCR 

C 

j vnitrní smyčka 

PCHR8 : 

INR 

E 



JNZ 

P50fi 



DCR 

E 



DCR 

B 

/hlavni smyčka 


RZ 




JNZ 

P50 



PUSH 

H 



RET 


* 


LXI 

H, 0 






PCHR9 : 

DCR 

fl 


DRZ: 

MOV 

Lz fi 



JM 

PCHR0 



fiNI 

0F 

;neni-li posun ve směru X 


DfiD 

D 



JZ 

DRZN 

/doraz netestuj 


JMP 

PCHR9 



CPI 

1 


PCHR0 : 

POP 

D 



LDfi 

RDSI 



DfiD 

D 



JZ 

DRZR 

/ posun doprava/ zkus právu 


RET 




fiNI 

1 





/ proved krok s motory 


JNZ 

DRZN 

> 1. doraz neni/ zkus druhy 





DRZV : 

MOV 

fi/ L 

i zjistil jsem dpraz 

ELEM: 

CfiLL 

DRZ 

j zjisti Jsi-li na dorazu 


fiNI 

0F0 

/zakazuji posun ve směru X 


LHLD 

SMOT 

/ okamžitý stav motoru 


PUSH 

PSW 



MOV 

H/ fi 



LDfi 

PPORG 

;je-li PP0RG*1 

■ 

flDD 

L 

/ přičti krok k motoru 


ORfi 

Fl 



RNI 

0F 

> spodní bity motoru 


JNZ 

HfiVflR 

; vyhlas havarii 


MOV 

E, fi 

i do E 


POP 

PSW 

i jinak se vrat do programu 


MOV 

fi/ H 

) druhy motor 


RET 


j který te zavolal 


ANI 

0F0 

;vyssi bity , 

DRZR : 

fiNI 

2 

;jeste'druhy doraz 


fiDD 

L 

; přičti krok 


JZ 

DRZV 

; stisknut 


fiNI 

0F0 

; opět pouze vyssi bity 

DRZN : 

MOV 

fi/ L 

/doraz jsem nezjistil 


ORfi 

E 

i s loz s E 


RET 


> vrac i m 


STfi 

SMOT 

j ulož to na stav motoru 






XRfi 

fi 


NULXV : 

LXI 

H / 0 

) okamzita poloha 


MOV 

H/ fi 



SHLD 

STPX 

i pera je nastavena 


LDfi 

fiCCE 



SHLD 

STPV 

i jako zak ladní <0/ 0> 


RfiR 

MOV 

L/ fi 

ž HL = rychlost snizena na 1X2 


SHLD 

SHLD 

NOPX 

NOPV 



JMP 

NfiSTM 



RET 



PNUP : 

LDfi 

SPĚN 

/ zvedni pero 






DCR 

fi 


ž tento 

pproa. 

provede 

celkový test tiskárny 


RHZ 


/je-li zvednuto vrat se 

; vyžaduje papir založeny na funkci ORQ 


JMP 

NfiSTP 






PNDW: 

LDfi 

SPĚN 

; spust pero 

VTEST : 

LXI 

D / 186 



DCR 

fi 



LXI 

B / OFFB0 


RZ 


/je-li uz dole vrat se 


CfiLL 

PORG 

;proved ORG na pozici X/ V 


MVI 

fi/ 1 



MVI 

fl/ 0fl 


NflSTP: 

STfi 

SPĚN 

/Ulož to na stav pera 


STfi 

SIXX 



LXI 

H/ 1F4 

; pauza pro pero 


STfi 

SIVV 

/velikost znaku 

NflSTM: 

PUSH 

H 



fiDD 

fi 



LHLD 

SPĚN 



STfi 

pies 



MOV 

fi/ H 



XRfi 

A 



fiNI 

0E 



STfi 

/ NfiRW 

i mezera 


ORfi 

L 



INR 

A 



MOV 

L/ ft 



STfi 

fiSCD 

i ASCII režim 


MOV 

fi/ H 



MVI 

H/ 10 



fiNI 

@E0 


TCON : 

MOV 

fl/ H 

i smyčka pro tisk cele tab. 


RRC 




CfiLL 

PCHR 



ORfi 

L 



INR 

H 



RRC 


‘ 


MOV 

fi/ H 



CfiLL 

PŘELI 



ANI 

7 



POP 

H 



JNZ 

TCON 

; dals i znak 

FMGT1 : 

LDfi 

SPED 



PUSH 

H 

/byla uz radka 

FM0T2 : 

DCR 

fi 



MOV 

H/ D 



JNZ 

FM0T2 



MOV 

L/ E 



DCX 

H 



SHLD 

NOPX 



í 

8 



LHLD NOPV ; posun na dal* i 

LXI B, 0FF80 jradek 

DRD B 

SHLD NOPV 

POP H 

MOV fl, H 

ORA R 

JP TCON 

JMP KTST 

RTB1: DW TB1 j odkazy do jednotlivých 

RTB2 : DW TB2 i tabulek generátoru 

RTB3 : DW TB3 ; znaku 

RTB4 : DW TB4 

RTB5: DW TB5 

RTB6 DW TB6 

RTB7 : DW TB7 

RTB8 : DW TB8 

ATB9 : DW TB9 

RTB18 : DW TB10 

RTB11 : DW ,/TBll 

RTB12 : DW TB12 

RTB13 : DW TB13 

RTB14 : DW TB14 

RTB15 : DW TB15 

; vlastni generátor znaku , 


TB1 : DB 38/ 7C, 74/ 70, 78, 80 

DB 8, 78, 7C, 4C, 48/ 32/ 52 

DB 1B, 52/ 59, 80/ 08/ 78/ 7C 

DB 40/ 48/ 12/ 72/ 2B, 72/ 69 

DB 88/ 8/ 78/ 70/ 40/ 48/ 21 

DB 63/ 2R, 63/ 5R, 80, 8/ 78 

DB 70, 40, 48, 21, 63, 2fl, 61 

DB 5R, 80, 8, 78, 70, 40/ 48 

DB 11, 71, 33, 53, 23/ 61/ 80 

DB 8, 78, 70, 40, 48, 1B, 52 

DB 59, 69, 72, 6B, 80, 3R, 4R 

DB 60, 24, 4fl, 80 

f B2 : DB 0R, 7fi, 60, 24, 7fi, 80 

DB 20, 64, 52, 32, 64, 80, 24 

DB 60, 52, 32, 60, 80, 0, 49 

DB 79, 7B, 74, 6B, 69/ 6B, 64 

DB 50, 54, 4B, 4fl, 51/ 80, 0C 

DB 4B, 59, 58, 48, 49, 79, 7B 

DB 74, 2R, 68, 80, 86, 8, 51 

DB 69, 28, 60, 2fl, 4R, 4B, 54 

DB 80, 8, 50, 54, 40, 48, 80 

-*B3 : DB 80- 3fl, 5fl, 0fl, 0CR, 31/ 7fl, 32 

DB 0FB, 39, 49, 0B, 7B, 20, 68/ 18 

DB 0DC, 10, 53, 50, 63, 61, 68, 71 

DB 74/ 3fl, 0CR, 70, 39/ 70, 69, 72 

DB 79, 1B, 52, 4B, 54, 0DB, 00, 68 

DB 70, 79/ 7R, 73/ 6B, 50/ 49, 4fl 

DB • 0DC, 3B, 0F2 

TB4 : DB 3B, 69, 59, OCB, 39, 6B, 5B, 009 

DB 11, 73, 24, 60, 31, 0D3, 20, 64 

DB 32, 0D2, 12, 001/ 20/ 0E4, 0fl, 0CR 

DB 0FC 

TB5 : DB 70, 34, 54, 4B, 49/ 50/ 70, 79 

DB 7B, 0F4, 29/ 7B, BOB, 30, 79, 7B 

DB 74, 60, 48, 000/ 30, 79/ 7B, 74 

DB 60, 63, 50/ 54, 4B, 49, 0D0, 0B 

DB 7B, 58, 0DC, 10/ 49, 4B, 54, 50 

DB 63, 60, 78, 0FC, 34, 7B, 79/ 70 

DB 50, 49, 4B, 54, 50/ 63/ 61/ 8D8 

DB 70, 0F8 

TB6 : DB 9, 50, 58, 61, 63, 60, 74, 7B 

DB 79, 70, 68, 61/ 63, 50/ 54, 4B 

DB 009, 10/ 49, 4B, 54, 74, 7B, 79 

DB 70, 68, 61, 63, 0EC, IR, 5fi, 2R 

DB 0ER, 1/ 52, 22, 0E2, 33, 61, ©D3 

DB 28, 60/ 18, 0DC, 31, 63, 0D1, 30 

DB 79, 78/ 74, 60, 5R, 52, 0R, 0CR 

TB7 : DB 68, 71, 73, 60/ 54, 4B, 4R, 51 

DB 61/ 6R, 63/ 8CB, 7R, 40, 21/ 0E3 

DB 78, 7B, 74, 60/ 63, 60/ 63, 50 

DB 54, 4B, 008, 34, 7B, 79, 70, 50 

DB 49, 4B, 0D4, 78/ 7B, 74/ 54, 4B 

DB 008, 30, 78, 48, 40/ 20/ 0E2, 78 

DB 70, 20, 0E2, 34, 7B, 79, 70, 50 

DB 49, 4B, 54, 50, 0DR 

TB8 : DB ' 78, 30/ 40/ 20/ 0E4, 9/ 46, 4R 

DB 7fi, 79, 0FB, 10/ 49/ 4B, 54, 0FC 

DB 78, 30, 60, 0CC, 38, 48/ 0CC, 78 

DB 62, 70, 0CC, 78, 40, 0FC, 9, 50 

DB 70/ 79, 7B, 74/ 54, 4B, 009 

TB9 : DB 78/ 7B, 74, 60, 63, 0E0, 9, 50 

DB 70, 79, 7B, 74, 54, 48, 49, IR 

DB 0CC, 78, 7B, 74, 60, 63, 6©, ©CC 

DB 10, 49, 4B, 54, 50, 63, 61, 68 

DB 70, 79, 7B, 0F4, 38, 70, 3R, 0CR 

DB 38, 50, 49, 4B, 54, 0FC, 38/ 4R 

DB 0FC, 38, 49, 6R, 46, 0FC ’ 

TB10 : DB 70, 38/ 800/ 38, 62/ 70/ 22/ 0CR 

DB 38, 70, 48, ©OC, 3B, 79/ 49/ 0CB 

DB 38, 0CC, 39, 7B, 4B, 009/ 31/ 7fl 

DB 0F3, 0, 004 

TB11 : DB 39, 0F2, 29, 6B, 64, 54, 4B, 49 

DB 50, 59, 5B, 54, 0CC, 78, 28/ 6B 


DB 64, 54, 4B, 008, 20/ 69, 60/ 50 

DB 49, 0CC, 30, 40, 49, 50, 60, 69 

DB ' 0EC, 18, 50, 64, 66, 69, 60, 50 

DB 49, 0CC, 0R, 72, 7B, 70/ 21/ 0E3 

DB 0/ 43, 40, 60, 69, 60/ 58, 51 

DB 0D4 

TB12 : DB 78, 28, 6B, 64, 0CC, 9/ 48, 4fl 

DB 6fl, 69, 3R, 0FR, 1, 42, 4B, 6B 

DB 6fl, 3B, 0FB, 78, 20, 58/ 0CC, 9 

DB 4B, 4fl, 7fi, 0F9, 68, 60/ 69, 62 

DB 4fl, 22, 6B, 64, ©CC, 68, 68, 69 

DB 6B, 64, ©CO, 09, 50, 60, 69, 6B 

DB 64, 54, 4B, 009 

TB13 : DB 0/ 68, 6B, 64, 50, 53, 0D0, 4 

DB 60, 69, 60, 58, 51, 0D4, 9, 69 

DB 61, 6fl, 68, 0E4, 4B, 54, 5B, 59 

SB 60, 69, 0EC, 00, 4B, 52, 7R, 29 

DB 0EB, 28, 50, 49, 46, 54, 0EC, 28 

DB 4R, 0EC, 28, 49, 62, 4B, ©EC 

TB14 : DB 60, 28, 0CC, 0, 43, 40, 60, 28 

. DB 58, 51, 0D4, 28, 60, 48, ©CC, 0B 

DB 52, 5fi, 61, 6fl, 72, 0FB, 8R, ©Ffl 

DB 9, 52, 5fl, 63, 6fl, 72, 0F9, 20 

DB 69, 5B, 0E4, 39/ 7B, 6B, 69, 79/ 80 

TB15 : DB 32/ ©FB/ 2fi/ 71, ?R, 73/ 0ER, 39 

DB 72, 0FB, 31, 7fi, 0F3, 39, 79/ 3B 

DB 0FB 

. DEPHRSE 


. . PHRSE RAM -blok proměnných 


P160 

DS 

2 


SIXX 

DS 

2 

-velikost písma XX 

SIXV 

DS 

2 

> velikost písma XV 

SIVX 

DS 

2 

-velikost pisma VX 

S1VV 

DS 

2 

-velikost pi srna VV 

STPX 

DS 

2 

- okamzita poloha pera X 

STPV 

DS 

2 

; okamzita poloha pera V 

NOPX 

DS 

2 

-poloha pristiho tisku zn. X 

NOPV 

DS 

2 

; poloha pristiho tisku zn. V 

NRRW 

DS 

1 

i druh mezer mezi znaky 

RSCD 

DS 

1 

; režim diakriticky/RSCI I 

BS: 

DS 

1 


coun; 

l\ DS 

1 

-citac znaku pri f. WRITE 

SPĚN 

DS 

1 

i okamžitý stav pera 

SMOT 

DS 

1 

- stav krokových motorku 

PREX 

DS 

2 

; sour. předchozího tisku X 

PREV 

DS 

2 

. .. v 

\ 

speD 

DS 

1 

;aktualni rychlost posuvu 

ROCE 

DS 

1 

j zrychlováni pri rozběhu 

Dl RE 

DS 

1 

> směr do os V a X 

DIR1 

DS 

1 


DIFF 

DS 

2 

-rozdíl sour. zadané a skut. 

P182 

DS 

1 


P183 

DS 

1 


P184 

DS 

1 


P185 

DS 

2 


RKLI 

DS 

1 


PSLI 

DS 

1 


TPLI 

DS 

1 


REZI 

DS 

1 

j režim textovy/graf icky 

COLR 

DS 

1 

i aktuální barva 

SPD : 

DS 

1 


RTLI 

DS 

1 


SKUTX : DS 

2 

-poloha 0 od poc. papíru v X 

PPORG : DS 

1 

/ druh funkce dorazu 

VOLB 

: DS 

1 





; proměnně pro řízeni zvuk. 




- generátoru 

KMIT 

DS 

1 

- kmitočet piskani 

KLOPÍ : DS 

2 

; pomoc ne 

CKL01 : DS 

1 

) proměnně 

KL0P2 : DS 

2 

) pro generátor 

KLOPA : DS 

2 

-délka pauzy mezi pisk. 

KLOPB : DS 

2 

-délka pauzy mezi cykly 

CKLO 

DS 

1 

; počet pisknuti 

KLM: 

DS 

1 

;stav reproduktorku 

SIZE 

DS 

1 

j velikost znaku pro GPRINT 

UKRR 

DS 

1 

> ukazatel radek 

UKZR 

DS 

1 

-ukazatel znaku 

STWP 

DS 

1 


PUVE 

DS 

1 


PUXX 

DS 

2 
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PRST : 

PS 

1 

; poce-t r-Ade-k na. stránku 

PZRfi: 

PS 

1 

> počet znaku na radek 

PLNB : 

PS 

1 


POMB : 

PS , 

1 


PITCH : 

PS 

2 

) roztec dilku na osV 

REPE: 

PS 

1 

; počet dilku na ose 

PRECH : 

PS 

1 

;cist z foufferu nebo z BUF I NT 

BUF I NT: 

PS 

1 

> pomocné prodlouženi bufferu 


KRQ25 : 

PS 

1 

i krok 0. 125 nebo 0. 25 

PRZ : 

PS 

1 


CK: 

PB 

8 

; pomocné proměnně pro r i zeni 

CW: 

PB 

, 0 

) ukazooatka bufferu 

ZW: 

PB 

0 


BUFF : 

PS 

0FF 

; vlastni fouffer 1/4 kbyte 


PS 

1 


CGR : 

PS 

1FF 



PS 

20 

> prostor pro stack 

STRCK : 

ENP 

0 



f ’ ; „ ; > 

Manuál pro plotter - tiskárnu 

s - — i ' 


Formát příkazů 

Je 5 typů formátu příkazů, jak je popsáno 

dále. 

1 . Příkaz skládající se pouze z jednoho zna- 
ku (bez další specifikace) (A, H, I). 

2. Příkaz, skládající se ze znaku a jednoho 
dalšího parametru (L, C, S, Q). 

3. Příkaz, skládající se ze znaku a dvou 
parametrů. se používá k oddělení pa- 
rametrů a kód CR na zakončení souboru 
parametrů. 

4. Příkaz plus znakový řetězec (P). 

5. Příkaz skládající se ze znaku a tří dalších 
parametrů (X). 

se používá k oddělení parametrů. 


' Zadání parametrů 

1 . Mezery, předřazené parametru jsou igno- 
rovány. 

2. Každé číslo, kterému je předřazeno zna- 
ménko je považováno za záporné. 

3. Každý parametr je zakončen nebo 
kódem CR. Jestliže jako specifikaci para- 
metru zadáme jiný znak, než čisto, všech- 
ny znaky následující tento znak jsou igno- 
rovány. 


Zkrácené formáty zadání 

1 . Libovolný jednoznakový příkaz může být 
následován příkazem bez toho, abychom 
jej museli oddělovat kódem CR. Např. 
„HD1 00,200“ CR má stejnou hodnotu 
jako ,,H“ CR ,,D100,200“ CR. 

2. Libovolný dvouznakový příkaz (znak r pa- 
rametr) může být následován libovolným 
příkazem, musí však být oddělený 
Např. „L0,S1 ,Q0,C1 D100,200“ CR je 
platný výraz. 

Změny hodnot vnitřních 
proměnných při změně režimu 

Při přechodu z grafického do textového 
režimu dochází ke změnám hodnot vnitřních 
proměnných: 

> Souřadnice X a Y. 

Y-ová souřadnice je nastavena na 0 a za- 
čátek je přiřazen levé straně plochy, na 
kterou je možno psát. 

> Směr tisku znaku. 

Parametr Q je nastaven na 0. 

> Velikost znaku 

stupeň velikosti znaku je nastaven na 1 
(80 zn. na řádek). 

> Typ čáry. 

Druh čáry je nastaven na 0 (plná čára). 


Velikost znaku 

> Po zapnutí tiskárny je velikost znaku au- 
tomaticky nastavena na stupeň 1 (80 
znaků na řádek). Stupeň velikosti je mož- 
no později měnit kontrolními kódy a příka- 
zy. 

> V grafickém režimu je možno měnit veli- 
kost písma v rozsahu 0 až 63. 

> Při přepnutí z grafického do textového 
režimu je nastaven stupeň velikosti znaku 
na 1 . 


Příkazy grafického režimu 

Počítač řídí tiskárnu v grafickém režimu 
následujícími příkazy. Slova uvedená v zá- 
vorkách, jsou příkazy v, jazyce SHARP 
BASIC, které mají stejnou funkci. 


Název příkazu 

Formát a funkce 

Druh čáry 

Lp (p=0 až 1 5) 

Určuje druh čáry (plná nebo 
tečkovaná) a rozteč teček. p=0 
platí pro plnou čáru, p=1 až 
p=15 pro různě tečkované 
čáry. 

Základní poloha 

(PHOME) 

H 

Zdvihne pero a vrátí jej do zá- 
kladní polohy. 

Inicializuj 
základní polohu 

1 

(HSET) 

Nastaví současnou polohu 
pera jako základní (x=0 
a y=0). 

Kreslí 

(LINE) 

Dx,y (-9999< = x,y< =9999) 

Kreslí čáru ze současné polohy 
pera do bodu x, y. 

Kreslí 

(RUNĚ) 

Jx,y (-9999<=x,y<=9999) 

To samé jako předchozí příkaz, 
ale kreslí do bodu určeného 
relativními souřadnicemi x, y. 

Přesun 

(MOVE) 

Mx,y (-9999< =x,y< = 9999) 

Zdvihne pero a přesune jej do 
bodu určeného souřadnice- 
mi x, y. 

Přesun 

(RMQVE) 

Rx,y (-9999< =x,y< = 9999) 

To samé jako předchozí příkaz, 
ale do bodu určeného relativní- 
mi souřadnicemi x, y. 


Bod 

Yx,y (~9999<=x,y<=9999) 
Zdvihne pero a přemístí jej do 
bodu x,y a nakreslí bod. 

Bod 

Wx,y (-9999<=x,y<=9999) 
Totéž jako předchozí povel, ale- 
bod udělá na místě určeném 
relativními souřadnicemi x, y, 

Změna barvy 

(PCOLOR) 

Cn (n=0ažn=3) 

Změní barvu pera podle čísla n. 

n=0 . . . černá 

n=1 . . . modrá 

n=2 . . . zelená 

n=3 . . . červená 

Nastav stupeň 

Sn (n=0 až 63) 

Určuje stupeň velikosti znaku. 

Otoč znak 

Qn (n=0až3) 

Určuje směr kterým se píší zna- 
ky. 

Tiskni 

Pc1c2c3c4 . . . cn 

Tiskne znaky cl , c2 až cn 

Osa 

Xp,q,r (p=0 nebol; 

q=— 999 až 999, r=1 až 255) 


Je-li p=1 kreslí X-ovou osu, je-li 
p=0 kreslí osu Y-ovou, q určuje 
rozteč značek na ose a r jejich 
počet. 


Nastav velikost Zxx,xy,yx,yy 

Obdoba příkazu Sn +.Qn, ale 
poskytuje značně větší mož- 
nosti. Nastaví směr, sklon a ve- 
likost písma. 



XX šířka písma v i/2 | mm |, 

XY odklon od x-ové osy v 1/2 ] mm 

YX odklon od y-ove osy v | mm |, 

YY výška písma v | mm |. 


Několik příkladů volby tisku příkazem ,Z‘: 


XX,XY,YX,YY 

tvar 

výška 

šířka 

řádka 

1, 0,0,1 

kolmý 

1 mm 

0.5 mm 

vodorovně 

4, 0.0, 7 

štíhlý kolmý 

7 mm 

2 mm 

vodorovně 

4, 0,1, 4 

skloněn vpravo 

4 mm 

2 mm 

vodorovně 

0,6.— 4.0 

širší, kolmý 

4 mm 

3 mm 

svisle vzhůru 

4.4, -4.4 

koimý 

5.7 mm 

2,3 mm 

šikmo vzhůru 


Nastav rychlost Tn (n=-10až30) 

Nastaví rychlost tisku, n=— 10 
je největší a n=30 nejmenší 
rychlost. 

Nastav krok Fn (n=0 nebo 1) 

Nastaví krok 0.125 mm pro 




n=0 nebo 0.25 mm pro n=1. 
Při kroku 0.125 mm se nastaví 
stupeň rychlosti na 0 a při kroku • 
0.25 mm je nastavován stupeň 
1 6, což je třeba vzít v úvahu při 
nastavování rychlosti příkazem 

X 

Nastav Bn (n=0 nebol) 

diakritický režim 

Nastaví diakritický režim při 
n=0. Je-li n=1 nastaví režim 
ASCII. Při tisku diakritických 
znamének nedochází k přesu- 
nu na tisk následujícího znaku, 
ale další znak se píše pod zna- 
ménko. 

Tabulka odpovídajících znaků: 

ASCII režim diakr. režim 
{ 5Bh čárka 

| 5Ch kroužek 

} 5Dh háček 

Nadefinuj vlastní En,c1c2c3 . . c32 (n=1 až 15) 
znak 

Za znakem „E“ následuje 
číslo znaku n z rozsahu 1 až 
15 a poté následují kódy 
podle tabulky uvedené v pří- 
loze tohoto manuálu. Může 
jich být maximálně 32, je-li 
jich méně, musí končit na- 
staveným 8. bitem. 

Pro definici takového znaku je nejprve nutné 
nakreslit základní tvar (složený z úseček) do 
rastru 5x8 bodů, jednotlivým vrcholům (tj. kon- 
cům úseček) přiřadit čísla AI ,A2, . . . ,AN Tab. 2. 

Horní čísla znamenají posun s pisátkem naho- 
ře, dolní posun s pisátkem dole. Poslední člen 
-ietězce, který zajistí zvednutí písátka a návaznost 
pro psaní dalších znaků, musí mít 8.bit nastaven 
na 1 (tj. 80H). Dále lze ještě ukončovací člen (80H 
sloučit s posledním vrcholem kreslené úsečky (tj. 
(An+80H)). 


Tabulka 2. 


dec hex 



56 

38 

57 

39 

58 

3A 

59 

3B 

60 

3C 


120 78 

121 79 

122 7A 

123 7B 

124 7C 


48 

30 

49 

31 

50 

32 

51 

33 z 

52 

34 


112 70 

113 71 

114 72 

115 73 

116 74 


40 

28 

41 

29 

42 

2A 

43 

2B 

44 

2C 


104 68 

105 69 

106 6A 

107 6B 

108 6C 


32 

20 

33 

21 

34 

22 

35 

23 

36 

24 


96 

60 

97 

61 

98 

62 

99 

63 

100 64 


24 

18 

25 

19 

26 

1A 

27 

1B 

28 

1C 


88 

58 

89 

59 

90 

5A 

91 

5B 

92 

5C 


16 

10 

17 

11 

18 

J 2 j 

19 

13 

20 

14 


80 

50 

81 

51 

82 

i 

1 M 
m 

83 

53 

84 

54 


8 

8 

9 

9 

10 

OA 

11 

OB 

12 

OC 


72 

48 

73 

49 

74 

4A 

75 

4B 

76 

4C 


0 

0 

1 

1 

2 

2 

3 

3 

4 

4 


64 

40 

65 

41 

66 

42 

67 

43 

68 

44 


Příklad vytvoření znaku „A“: 

PRINT/P “El CHR$($08,$7A,$4C,$21 ,$E3) 

Vytiskni Gn (n=1 až 15) 

nadefinovaný znak 

Vytiskne dříve nadefinovaný 
znak čísla n z rozsahu 1 až 1 5. 


Kontrolní kódy používané 
v textovém režimu 

Všechny kódy platí při přepínači ASCII/ 
/MZ800 nastaveném do polohy ASCII. 


Textový kód($ 01). 

Přepíná tiskárnu do textového režimu. 

Grafický kód ($02). (Jako příkaz PMODE 
v jazyku Basic) 

Přepíná tiskárnu do grafického režimu. 

Řádekzpět ($03) (Jako příkaz PSKIPvja- 
zyku Basic) 

Posune papír o 1 řádku zpět. Obsah 
čítače se přitom zmenší o 1 . Stojí-li pero 
na začátku nové stránky, neprovádí nic. 

Zkouška per ($04). (Jako přikaž PTEST 
v jazyku Basic) 

Nejprve vytiskne následující text, potom 
nastaví rozměr tisku 1 (80 znaků na řá- 
dek). 


* * * MZ-821 * * * 

Tisk předdefinovaného znaku 

($05)4 (ASCI 1)2 + (ASCII) 1 + ($0D). 
Vytiskne předefinovaný znak čísla slože- 
ného z (ASCII)2 a (ASCII)I z rozsahu 1 až' 
15. 

Zmenšený tisk ($09)+($09) + ($09). 
Zmenšuje tisk ze stupně 1 na stupeň 
0 (120 zn. na řádek). 

Zrušení zmenšeného tisku 

($09) + ($09) + ($08). 

Zvětšuje tisk ze stupně 0 na stupeň 1 (80 
zn. na řádek). 

Nastavení čítače řádek. (Jako příkaz 
PAGE v jazyku BASIC). 

($09) + ($09) + (ASCII)2+(ASCII)1 + (AS- 
Cll)0+($0D) 

Určuje počet řádek na stránku tříbajtovým 
kontrolním kódem ASCII. Největší počet 
je 255. Po zapnutí nebo resetování systé- 
mu je čítač řádek nastaven na hodnotu 
66 . 

Řádek vpřed ($0A). (Jako příkaz PSKIP 
v jazyku BASIC). 

Posune papír o jeden řádek vpřed. Obsah 
čítače řádků se zvětší o 1 . 

Zvětšený tisk ($0B). 

Zvětšuje tisk ze stupně 1 na stupeň 2 (40 
zn. za řádek). 

Zrušení zvětšeného tisku ($07). 
Zmenšuje tisk ze stupně 2 na stupeň 1 (80 
zn. na řádek). 

Návrat vozíku ($0D). 

Přesune vozík (pisátko) do levé krajní 
polohy. 

Krok zpět ($08). 

Přesune vozík o jednu pozici zpět. Je-li 
v levé krajní poloze, kód nemá žádnou 
funkci. 


Nová strana ($0C). 

Příkaz přesune papír na začátek' další" 
strany a zároveň vynuluje čítač řádek. 

Následující barva ($1D). 

Změní barvu pera na následující podle 
tabulky uvedené výše. 

Pří výše uvedeném přepínači nastaveném 
do polohy MZ800 platí kódy podle následují- 
cí tabulky: 

Nová strana $0F 

Zpětný krok $0E 

Zrušení zvětšeného tisku $0C 


Automatický test 


Tiskárna umí 2 druhy testu. První se 
spouští řídicím kódem ($04), nebo tlačítkem 
TEST na ovládacím panelu. Druhy spustíme 
stiskem tlačítka TEST a současným zapnu- 
tím tiskárny. 


Ovládací prvky 
na čelní stěně tiskárny 


Tlačítko STOP -slouží k pozastavení 

práce plotteru, tiskárna 
vydává tón a čeká na 
stisk tlačítka READY. 

Tlačítko TEST -provede to samé jako 

řídící kód $04, tedy 
test tiskárny. 

Tlačítko READY -při jakémkoli zvuko- 
vém signálu potvrzuje 
tímto tlačítkem uživatel 
prováděnou operaci. 

Přepínač PEN/NOT -slouží k invertování 
okamžitého stavu 
pera, provádí se tech- 
nicky nezávisle na čin- 
nosti plotteru. 


Přepínač 

ASCII/MZ800 


Přepínač 

COLOR/NO 


Dioda RDY 


-určuje mají-li se zna- 
ky přepočítávat (režim 
MZ800)’či ne. 

-při příchodu instrukce 
pro změnu barvy a na- 
staveném přepínači do 
polohy COLOR vydává 
pískání odpovídající 
požadované barvě 
a čeká na stisk tlačítka 
READY. 

-svitem určuje čekání 
na stisk tlačítka REA- 
DY. 


Dioda PWR -signalizuje zapnutí 

plotteru. 

Dioda BUF -signalizuje vyčítání 

z bufferu, nebo svítí-li 
trvale, určuje prázdný 
buffer. 


Systémové přepínače 
na zadní stěně 


Přepínač CR/CR+LF 

Přepínač LF/LF+CR 

Přepínač A4/ROLE 
Přepínač RDP/RDP 

Přepínač RDA/RDA 


-v poloze CR + LF 
při příchodu kódu 
CR provede i kód LF. 
-v poloze LF+CR 
při příchodu kódu LF 
provede i kód CR. 
-určuje formát papí- 
ru. 

-určuje polaritu sig- 
nálu RDP (hardwe- 
rqyě). 

-určuje polaritu sig- 
nálu RDA (hardwe- 
rově). 


i 
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Ing. Petr Kandera, Krasnoarmějců 2, 704 00 Ostrava 3 

EMU89 je program pro emulaci terminálu CM7202 a CM7209 na počítači typu IBM PC pod operačním 
systémem MS-DOS. IBM PC se připojuje jako terminál po sériové lince (RS232C, proudová smyčka). 


Po spuštění EMU89 se zobrazí hlavní 
menu: 

1. Emulace terminálu CM7202. 

2. Emulace terminálu CM7209. 

3. Změna parametrů přenosu. 

Volit z těchto možností lze pomocí šipek 
a klávesy ENTER nebo přímo číslem volby. 
Kromě těchto možností je možné zobrazit 
popis funkčních kláves pro oba typy emulo- 
vaných terminálů stiskem klávesy K. Pokud 
do asi 5 sekund nestiskneme žádnou kláve- 
su, áutomaticky se nastartuje „vysvícená" 
volba. (Pozn.: časový údaj platí pro CPU 
8088 a takt 9,54 MHz). 

Pro svou činnost vyžaduje EMU89 v adre- 
sáři, ze kterého byl spuštěn, konfigurační 
soubor EMU89.CFG, ve kterém má uloženy 
parametry přenosu (číslo sériového portu, 
přenosovou rychlost, počet datových bitů, 
počet stop bitů, typ parity), číslo volby, která 
se po spuštění automaticky aktivuje, a ozna- 
čení diskové jednotky, na které bude hledán 
systémový soubor COMMAND.COM při prá- 
ci s operačním systémem v emulátoru. 

Všechny parametry, s výjimkou poslední- 
ho, má uživatel možnost měnit volbou z pull- 
-down menu. Poslední parametr se při insta- 
laci vždy nastaví na C (harddisk). Konfigu- 
rační soubor lze měnit také libovolným texto- 
vým editorem. 

Pokud v okamžiku startu neexistoval kon- 
figurační soubor EMU89.CFG, automaticky 
bude nastartována volba 3 (Změna paramet- 
rů přenosu) a hlavní menu bude zobrazeno 
až po vytvoření konfiguračního souboru. 

Program se ukončuje z hlavního menu 
pomocí CTRL-A. 


Změna parametrů přenosu 

Parametry se mění výběrem z menu po- 
mocí šipek a klávesy Enter, jak je vysvětleno 
v dolní části obrazovky. Klávesa Esc způso- 
buje vždy návrat o krok zpět beze změny 
hodnoty. Změnu parametrů lze ukončit stis- 
kem Esc, pak se změny neuloží a platí pou- 
ze do ukončení programu, nebo stiskem 
CTRL-A - změny budou navíc uloženy do 
souboru. Pokud však před spuštěním ne- 
existoval konfigurační soubor, i ukončení 
změn parametrů stiskem Esc způsobí ulože- 
ní parametrů. 


Emulace 

Při emulaci se chová PC jako zvolený typ 
terminálu s těmito funkčními klávesami: 

F3 Lokální výmaz obrazovky. 

F4 Popis funkčních kláves (Help). 

Tato funkce odpovídá stisku klá- 
vesy K v hlavním menu. 

F9 Změna parametrů přeno- 


su. Tato funkce je ekvivalentní 
volbě 3 v hlavním menu. 

F10 Odskok do prostředí MS- 
DOS. Návrat zpět je možný zadá- 
ním sekvence EXIT. Pokud nebu- 
de nalezen COMMÁND.COM na 
zvoleném disku, dojde po chybo- 
vém hlášení k návratu do emula- 
ce. 

CTRL-A Ukončení emulace a návrat do 
hlavního menu. 

Enter CR - „Návrat vozu" (znak 13D). 

End LF - skok na nový řádek (znak 

10D). 

Delete Delete - výmaz znaku. 

Back 

space Back space (znak 08D). 

Pro emulátor CM 7202 dále platí: 

F1 EOL - Výmaz řádku od kurzoru 

doprava. 

F2 EOS - Výmaz obrazovky od kur- 
zoru dolů. 

Home Home - Přesun kurzoru do levého 
horního rohu obrazovky. 

'{Pozn. : tyto funkční klávesy mají při emulaci 
CM7209 stejný význam jako neoznačené tři 
klávesy terminálu.) 

Zbývající klávesy PC mají stejný význam 
jako klávesy terminálů nebo nemají žádnou 
funkci. 


Nároky na technické vybavení 

Program EMU89 je určen pro počítače 
standardu IBM PC, pracující pod operačním 
systémem MS-DOS. Program byl zkoušen 
na počítačích Commodore PC20-III, PP06, 
Leonard AT, IBM PC-XT a IBM PS/2-30 
s operačními systémy MS-DOS V3.20, 
V3.21 , V3.30 a PPDOS V3.0. Vyžaduje gra- 
fickou kartu CGA nebo EGA (pro kartu Her- 
cules stačí upravit atributy Text color z Text 
Background); v .EXE formě je dlouhý 22784 
bajtů a v paměti zabírá asi 45 kB. Počítač 
musí být vybaven standardním sériovým 
portem COM1 nebo COM2. 

Stručný popis programu 

Program je napsán v jazyce TURBO-PAS- 
CAL V4.0 (délka zdrojového programu je 
520 řádků). 

Program EMU89 se skládá ze čtyř základ- 
ních částí: * 

1 . pomocné globální procedury a funkce, 

2. vlastní emulace, 

3. procedury a funkce pro změnu parametrů, 

4. hlavni program. 

Hlavní program zajišťuje tvorbu hlavního 
menu a provádění základních operací. s ním. 


Používá mimo jiné proceduru Keys pro zo- 
brazení popisu funkčních kláves (Help). 

Změnu parametrů výběrem z pull-down 
menu a vytváření konfiguračního souboru 
má na starosti procedura 


Init, 

hlavní procedura změny parametrů. Provádí 
výpis nastavených hodnot, volbu parametrů 
atd. Využívá procedury: Default (zobrazení 
nastavených hodnot), Savé (ukládání para- 
metrů do souboru), Mainwindow (okno pro 
změnu parametrů), Pspdf a Speed (volby 
jednotlivých parametrů). Dále používá pro- 
cedury společné i pro hlavní program: Bot- 
tom (nápověda) a Arrows (pohyb kurzoru). 


Emulace využívá tří hlavních procedur: 

Emulace - Nastavení parametrů a volba 
typu emulátoru, 

Emul - emulace CM7202, 

Emu2 - emulace CM7209 I 


a další pomocné procedury a funkce. Zjed- 
nodušeně lze popsat její činnost následov- 
ně: 

Při spuštění emulace se nastaví paramet- 
ry sériového portu a vektor přerušení. Přeru- 
šení při příjmu znaku na sériový port je 
obsluhováno procedurou Readcom, která 
ukládá znaky do pole, ze kterého jsou po 
zpracování znaky zobrazeny na obrazovce. 
Mezitím se soustavně testuje klávesnice 
- běžné znaky jsou vysílány přímo na port, 
funkční klávesy provádějí popisné funkce. 
Na obrazovce se zobrazují pouze znaky 
přicházející na sériový port. 

Pomocné globální procedury a funkce za- 
jišťují mimo jiné výstup znaku na port (Out- 
Char), úschovu a obnovení obrazovky (Sa- 
veScreen, LoadScreen), odskok do MS- 
DOSu (Branch), inicializaci portu (Initcom), 
povolení a zablokování přerušení (Siolnt On, 
Siolnt Off), výmaz obrazovky od kurzoru 
dolů a doprava (ClrEos), přečtení znaku 
z pole s informací, zda se jedná o nový znak 
(Inbyte), zobrazení popisu funkčních kláves, 
změnu parametrů přenosu (Initid) apod. 

Program lze snadno přizpůsobit individu- 
álním požadavkům a vytvořit v něm vlastní 
speciální funkce, např. hardcopy obrazovky, 
nebo přiřadit dalším funkčním klávesám 
nové funkce. 

Práce s emulátorem je jednoduchá a po- 
hodlná, zvláště když uvážíme, že při práci 
s ním lze využít celou škálu programů pří- 
stupných pod MS-DOSem - v emulátoru lze 
provést odskok do MS-DOSu, pak v něm 
libovolné dlouho pracovat a kdykoliv se vrátit 
zpět doemulátoru. 



{Emulátor terminálu CM7202/CM7208} 
{ na IBM PC } 
{ Verze 3.4 } 
{ (c) 1989 - PKSoft } 


program EMU89; 

{$K-U-C- } 

{$M 20000,0,4000} 
uses Crt,Dos; 
label 5; 
const 

sp=' ' ;comul=$3F8;comu2=$2F8; 

EOI :byte=$20;Buf fTop=10000; 
terl='C M 7 2 0 2';ter2='C M 7 2 0 9'; 
IntContr : integer=$20 ;q=#219;u=#220; 
IRQ_Mask: integer=$21 ; h=#223 ; 
type 

strarr=array[l . . 8] of string[30]; 
var 

f : text; j :string[30] ; newbyte : boolean ; 
term:string[12] ; r , z , v : str ing[2] ; 
keyout , c , drv : char ; ScrSeg : word ; 
p,x,d,b,s,t,m,e:strarrř 
By teln , Comlnt , xx, yy , zac : byte ; 
altcom, exit savé , screen : pointer ; 

Inbuff : array[0 . .Buf fTop] of byte; 
com,comnr,bd,db,sb,par,yl,yk:word; 

Or igmode , Inpoint , Outpo int , i : word ; 

proceduře ReadCom; 

Interrupt ; 
begin inc(Inpoint) ; 

if (Inpoint>Buf f top) then Inpoint: =0; 
Inbuff [Inpoint] : =port [com] ; 
port [IntContr] : =E0I ; 
end; 


proceduře ClrEos; 
var i: byte; 

begin ClrEoljxx: =wherex;yy : =wherey; 
for i:=yy+í to 24 do begin 
gotoxytl, i);ClrEol;end; 
gotoxy(xx,yy ) ; 
end ; 

proceduře Title; 

begin Textbackground( 0 ) ; 

window( l,l,80,25);clrscr; 

Textcolor(O) ;Textbackground( 7) ; 
Insline;gotoxy( 16 , 1 ) ; writeln 
('EMULACE TERMINÁLU 
term) ;Textcolor( 14 ) ;Textbackground(0 ) ; 
window( 1,2,80,25); 
end ; 

{$F+}procedure Myexit {F— } ; 

begin Textmode(Or igmode ) ; SioInt_of f ; 

By teln : =port [com] ; ExitProc : =Exitsave ; 
se tintvec( comlnt , altCom) ; 
end ; 

proceduře SaveScreen; 

begin if (Lo(LastMode)=7) then 

ScrSeg: =$B000 else ScrSeg: =$B800 ( ; 
Move(Ptr< ScrSeg, 0 )" , Screen" ,4000 ) ; 
end ; 

proceduře LoadScreen; 

begin if (Lo(LastMode )=7) then 

ScrSeg : =$B000 else ScrSeg : =$B800 ; 
Move( Screen" ,Ptr( ScrSeg, 0)" ,4000) ; 
end ; 

proceduře Init(u : byte) ; f orward; 
proceduře Keys ; f orward ; 


function Inbyte(var pb:boolean) :byte; 
begin pb:=(0utpointolnpoint); 
if pb then begin inc(Outpoint ) ; 
if Outpoint>Buf fTop then 0utpoint:=0; 
InByte : =InBuf f [Outpoint ] ; end; 

end ; 

proceduře OutChar(z:char) ; 

begin while(port [com+5] and $20 =0) do; 

port [com] : =byte(z) ; 
end; 

proceduro SioInt_off; 
begin 

Port [IRQ_Mask] : =(Port [IRQ_Mask] or $18); 
end ; 


proceduře SioInt_on; 
begin 

Port[IRQ_Mask) := 

(Port [IRQ_Mask] 


end ; 


and $E7); 


proceduře Initcom(comport : integer; 

baud : reál; data, s top, par it : byte) ; 
var divisor: integer; local:byte; 
begin divisor : =round( 115200 . 0/baud) ; 
port [comport+3] :=$80; 
port [comport] : = lo(divisor); 
port [comport+1] : =hi( divisor ) ; 
local : =0 ; čase data of 6:local:=3; 

7 : local : =2 ; 8 : local : =1 ; end ; 
if stop=2 then local : =loca\ or 4; 
čase parit of 2 : local : =local or $18; 

1 : local : =local or $08;end; 
port [comport+3] :=local; 

port [comport+1] : =l;port[comport+4] : =$0B; 
local : =port [comport] ; 
end ; 


proceduře Initia(u : byte ) ; 
begin GetMem( Screen, 4000) ;xx: =wherex; 
yy : =wherey ; SaveScreen ; 
if u=0 then Init(l) 

else Keys;LoadScreen; 

FreeMem( Screen , 4000 ) ;Textcoíor( 14) ; 
Textbackground(0 ) ; window( 1,2,80,25); 
gotoxy(xx,yy) ; 
end ; 

proceduře Branch; 

begin GetMem( Screen , 4000 ) ;xx:=wherex; 
yy : =wherey; SaveScreen ; 

Textbackground(blue ) ; window( 1,1,80,25); 
clrscr ; writeln( 'Navrat do emulátoru', 

' -> <EXIT> ' ) ; 

j : =drv+ ' : \C0MMAND . COM ' ; Exec ( j , ' ' ) ; 
if DosErroroO then begin wr iteln(#10 , 
'Nenalezen soubor COMMAND.COM'); 
wr ite(#7 ) ;Delay( 2000 ) ; end ; 
Initcom(com,bd,db,sb,par); 

Se tlntvec( Comlnt ,@readcom) ; 
SioInt_on;LoadScreen ; , 

FreeMem( Screen, 4000) ;Textcolor( 14) ; 
Textbackground( 0 ) ; window( 1,2,80,25); 
gotoxy(xx.yy) ; 
end ; 


proceduře Emul; 
label 10; 

begin while (keyouto#l) do begin 
Byteln : =InByte(newbyte) ; 

Byteln : =(ByteIn and $7F); 
if newbyte then begin 
if i=2 then begin 

xx : =ByteIn-31;gotoxy(xx,yy) ; 
i:=0;goto 10;end; 
if i=l then begin 


yy : =ByteIn-31 ; Inc( i >; 
goto 10;end; 

čase Byteln of 0 : ; 7 : write(#7) ; 
8:gotoxy(wherex-l,wherey) ; 

9 : gotoxy(wherex+ 

(8-(wherex mod 8)),wherey); 

11 : gotoxy( wherex, wherey+1) ; 

24 : gotoxy( wherex+1 , wherey) ; 

26 : gotoxy( wherex, wherey- 1 ) ; 

27:Inc(i);29: gotoxy( 1, 1) ; 30 : ClrEol ; 

31 : ClrEos ; else wr i te( char ( Byteln ) ) ; 
end; end; 

10:if keypressed then begin 

keyout : =readkey ; 

if not (keyout=#l) then begin 

if keyout=#0 then begin keyout : =readkey; 

čase ord(keyout) of 83: 0utChar(#127 ) ; 

79: OutChar (#10) ; 72 : 0utChar(#26 ) ; 

80: OutChar (#11 ) ; 75 : 0utChar(#8) ; 

77: OutChar (#24 ) ; 71 : 0utChar(#29) ; 

59: OutChar (#30 ) ; 60 : OutChar (#31 ) ; 

61: clrscr;62: Init ia( 1 ) ; 67 : Initia(O); 
68: Branch; 15 . . 25 , 30 . . 38 , 46 . . 50 , 63 . . 66 , 
84 . .140,3,44,73,81,82: ; end ; end 
else OutChar ( keyout ) ; end ; end ; end ; 
end ; 


proceduře Emu2; 
label 10; 

begin while (keyouto#l) do begin 
Byteln : =InByte( newbyte ) ; 

Byteln : =(ByteIn and $7F); 
if newbyte then begin 
if i=3 then begin 

xx: =ByteIn-31 ;gotoxy(xx,yy) ; 
i:=0;goto 10;end; 
if i=2 then begin 

yy:=ByteIn-31;Inc(i); 
goto 10;end; 

if i = l then begin Dec(i); 
čase Byteln of 
65 : gotoxy( wherex, wherey- 1 ) ; 

66 : gotoxy( wherex, wherey+1 ) ; 

67 : gotoxy( wherex+1 , wherey ) ; 

68 : gotoxy( wherex- 1 , wherey) ; 
72:gotoxy(l, 1);75: ClrEol ; 74 : ClrEos; 
89:i:=i+2;else; end ; 
goto 10;end; 
čase Byteln of 

0: ;7:write(#7);9: gotoxy( wherex+ 

(8-(wherex mod 8)), wherey); 
27:Inc(i);else wrřte( chař( Byteln ) ) ; 
end; end; 

10: if keypressed then begin 
keyout : =readkey ; 
if not (keyout=#l) then begin 
if keyout=#0 then begin keyout : =readkey; 
čase ord(keyout) of 
83: Ou tChar (# 127 ) ; 79 : 0utChar(#10 ) ; 

72: 'begin OutChar (#27 ); OutChar (#65 ); end ; 
80: begin 0utChar(#27 ) ; 0utChar(#66 ) ; end ; 
75: begin 0utChar(#27 ) ; 0utChar(#68) ; end ; 
77: begin OutChar (#27 ); OutChar (#67 ); end ; 
71: begin OutChar(#27) ;0utChar(#82) ;end; 
59: begin OutChar(#27 ) ; 0utChar(#81 ) ; end ; 
60: begin OutChar (#27 ); OutChar (#80 ); end ; 
61: clrscr;62: Initia( 1 ) ; 67 : Initia(O); 
68: Branch; 15 . . 25 , 30 . . 38 , 46 . . 50 , 63 . . 66 , 
84 . . 140,3,44,73,81,82: ; end ; end 

else OutChar( keyout ); end ; end ; end ; 

end ; 

proceduře Emulace; 

begin Title; i : =0; SioInt_off; 

if comnr=l then begin 

com : =comul ;ComInt : =$0C ; end 
else begin com : =comu2 ; Comint : =$0B ; end ; 


In itcom( com , bd , db , sb , par ) ; 

Setlntvec( Comint , éreadcom) ; 
Inpoint:=0;0utpoint:=0; 

SioInt_on ; keyout : =#$FF ;0utChar(#13) ; 
if term=terl then Emul else Emu2; 
end ; 

proceduře Arrows(ms : strarr ; 

ds , 1 , o : integer ) ; 
proceduře Move( i : integer ) ; 
begin write(ms[wherey] ) ; 
gotoxy(wherex-ds , wherey+i) ; 
if 1=0 then Textbackground( 0 ) 

else Textbackground(green ) ; 
wr i te(ms [wherey] ) ; 
gotoxy( wherex-ds , wherey) ; 
if 1=0 then Textbackground( white ) 
else Textbackground(0 ) ; 

end ; 

begin c : =readkey ; čase ord(c) of 
72: if wherey=l then Move(o) 

else Move( -1 ) ; 

80: if wherey=o+l then Move(-o) 
else Move(l); 
else write(#7 ) ; end ; 

end ; 

proceduře Keys; 
begin Textbackground( white) ; 
window( l,l,80,25);clrscr; Textcolor( 14 ) ; 
gotoxy( 7, 24 ) ; wr ite( 'Zbyvaj ici klávesy' , 
PC odpovidaji terminálu nebo nemaji', 
zadny vyznám '); gotoxy( 30 , 22 ) ; 
write( 'Navrat zpět -> <Esc>'); 
gotoxy( 24 , 2 ) ; wr ite( 'POPIS FUNKČNÍCH ', 

' KLÁVES EMULÁTORU ' ) ; Textbackground( 0 ) ; 
window( 10,4,35,20) ; c lr ser ; 
Textbackground(green ) ; 


write( ' 

TERM 

I N A L 

CM7202 

') 

write( ' 




') 

write( ' 

klavesa 


funkce 

') 

gotoxy( 1 , 5) ;Textbackground(0) ; 


write( ' 

F1 


EOL 

') 

writei ' 

F2 


EOS 

') 

write( ' 

F3 

Vymaž obrazovky 

') 

write( ' 

F4 

Popis 

kláves 

') 

write( ' 

F9 

Změna parametru 

') 

write( ' 

F10 

Odskok 

do DOSu 

') 

write( ' 

Enter 


CR 

') 

write( ' 

End 


, LF 

') 

write( ' 

Home 


HOME 

') 

write( ' 

Delete(Del ) 

DEL 

') 

write( ' 

Backspace 

BS 

') 

write( ' 

Ctrl-A 

Ukončeni 

emulace 

') 


Textbackground(O) ; window(45,4 , 70,20); 
clrscr ;Textbackground(green) ; 


write( ' 

TERM 

I N A L CM7209 

') 

write( ' 



') 

write( ' 

klavesa 

funkce 

') 

gotoxy( 1,8) ;TextBackground(0) ; 


write( ' 

Enter 

CR 

') 

write( ' 

End 

LF 

') 

write( ' 

Delete(Del )• DEL 

') 

write( ' 

Backspace BS 

') 

write( ' 

F3 

Vymaž obrazovky 

') 

write( ' 

F4 

Popis kláves 

') 

write( ' 

F9 

Změna parametru 

') 

write( ' 

F10 

Odskok do DOSu 

') 

write( ' 

Ctrl-A 

Ukončeni emulace 

') 


window( 1,1,80,25) ;gotoxy(47 , 22) ; 
repeat repeat until keypressed; 

c : =readkey ; if c<>#27 then write(#7); 
until c=#27; 
end ; 


proceduře Bottom(u : byte ) ; 

begin Textbackground( 0 ) ;Textcolor( 14) ; 


window(4, 22, 77 , 24) ; clrscr ; gotoxy( 2, 1 ) ; 
if u=0 then gotoxy( 19 , 1 ) ; 
write( ' Volba možnosti : '); 

Textcolor( 10 ) ; 

write(#24,#25, ' + Enter'); 

Textcolor( 14) ; if u=l then begin 

write( ' nebo primo ' ) ; Textcolor( 10 ) ; 

write( ' cislo ' ) ;Textcolor( 14) ; 

write( ' volby ' ) ;gotoxy(2, 3) ; 

write( ' Popis funkcnich kláves : '); 

Textcolor( 10) ; write( ' <K> '); 

Textcolor( 14 ) ; 

write( 'Ukončeni emulace : ' ) ; end 

elseHsegin gotoxy(3,3); 
write( ' Navrat bez uloženi : '); 

Textcolor( 10) ; write( ' Esc'); 

Textcolor ( 14 ) ; write( sp : 9 , 

'Navrat s ulozenim : ');end; 

Textcolor( 10) ; write( 'Ctr 1-A '); 
end ; 

proceduře Init(u : byte ) ; 
label 2; 

var ch: byte ; f : text ; 
proceduře Default; 

begin Textbackground(O) ;Textcolor( 14) ; 
window( 50,4,77, 18); clrscr; 
Textbackground(green );write(sp:28); 
write( ' NASTAVENÉ HODNOTY '); 
write;write(sp:28) ;write; 
write ln;,wr iteln ;Textbackground(0) ; 
write( ' Sériový port : '); 

Textcolor( 10) ; write(p[comnr] ) ; 

Textcolor ( 14 ); writeln ; 
write( ' Rychlost přenosu : '); 

Textcolor ( 10) ; write(bd : 4 ) ; Textcolor ( 14) ; 
writeln ; write( ' Parita : ') ; 

Textcolor( 10) ; write(x[par] ) ; 

■¥extcolor( 14 ); writeln ; 
write( ' Počet dat. bitu : '); 

Textcolor ( 10) ; write(db:4) ;Textcolor( 14) ; 
writeln ;write( ' Počet stop bitu : '); 
Textcolor ( 10 ) ; wr ite( sb : 4 ) ;Textcolor( 14) ; 
writeln;write( ' Prvni volba : '); 

Textcolor( 10);write((yk):4); 

Textcolor( 14 ) ; 
end ; 


proceduře Savé; 

begin assign( f , 'EMU89 . CFG ' );rewrite(f ) ; 
wr iteln( f , comnr ) ; writeln( f , bd ) ; 
writeln(f ,par ) ; wr iteln ( f ,db ) ; 
wr iteln( f , sb ) ; writeln( f , yk) ; 

. writeln (f, drv );close(f); 
erid ; 

proceduře MainWindow(m: strarrjn, l:byte); 
var i , li : byte ; 
begin li : =23; 

if 1=0 then begin 1 i : =3 ; 
Textbackground(O) ;window(4,4,40, 18) ; 
clrscr;Textbackground(green) ; 
write( sp : 38 ) ; wr ite( ' ZMĚNA 
'PARAMETRU ' ) ; wr ite( sp : 36 ) ; 
end ; window(4 , 9 , 40 , ( 9+n ) ) ; 
Textbackground(gréen ) ; gotoxy( li , 1 ) ; 
write(m[l]); gotoxy( li , wherey+1 ) ; 
Textbackground( 0 ) ; 

for i : = 2 to n+1 do begin write(m[i]); 
gotoxy( li, wherey+1) ; end ; gotoxy( li , 1) ; 
end ; 

proceduře Pdspf 

(m:strarr;ds,o: integer ; var res : word ) ; 
begin MainWindow(m, o, 1) ; 

repeat repeat until keypressed; 
c : =readkey ; if c=#0 then Arrows(m , ds , 1 , o ) 


else begin čase ord(c) of 
27: exit; 13: begin res : =wherey; exit ; end ; 

else write(#7) ; end ; end ; 

until' falše ; 
end ; 


proceduře Speed; 
begin MainWindow( e , 7 , 1 ) ; 

repeat repeat until keypressed; 
c : =readkey ; if >c=#0 then Arrows(e, 5, 1, 7) 
else begin čase ord(c) of 
27 : exit ; 13 : begin čase wherey of 
1 : bd : =9600 ; 2 : bd : =4800 ; 3 : bd : =2400 ; 
4:bd:=1200;5:bd:= 600;6:bd:= 300; 

7 : bd : = 150 ; 8 : bd : = 110;else bd:=9600; 
end ; exit ; end ;else write(#7); end ; end ; 
until falše; 
end ; 

begin ch:=l;if u=0 then begin 
{$I-}assign(f , 'EMU89 . CFG ' ) ; 
reset(f ) ; close( f ) ; {$1+} 
if I0Result=0 then begin 
assign( f , 'EMU89 . CFG ' );reset(f ); 
readln( f , comnr ) ; read ín( f , bd ) ; 
readln( f , par ) ; readln( f , db ) ; 
readln( f , sb ) ; readln( f , yk) ; 
readln(f,drv);close(f);ch: =0; end ; end ; 
if ch=l then begin 
if u=0 then begin comnr:=l; 
bd : =9600 ; par : =3 ; db : =8 ; sb : =1 ; yk.: =1 ; 
drv : = 'C ' ; end ; Textbackground( white ) ; 
window( 1 , 1 , 80 , 25 ) ; clrscr ; Textcolor( 14 ) ; 
gotoxy( 25 , 2 ) ; write( 'Emulátor ', 
'terminálu E M U 8 9 ' ) ; Bottom( 0 ) ; 

2 :Def ault ;MainWindow(m, 5, 0) ; 

repeat repeat until keypressed; 
c : =readkey ; if c=#0 then Arrows(m, 18 , 1 , 5 ) 
else begin čase ord(c) of 
27:begin if u=0 then Savé ; exit ; end ; 

1 : begin Savé ; exit ; end ; 

13: begin čase wherey of 
1 : begin Pdspf (p , 4 , 1 , comnr ); goto 2;end; 
2: begin Speed;goto 2; end; 

3:begin Pdspf (x, 5 , 2 , par ) ; goto 2;end; 

4 : begin Pdspf (d , 6 , 1 , db ) ; 

db : =db+6 ; goto 2; end; 

5 : begin Pdspf (b , 10 , 1 , sb ); goto 2;end; 

6 : begin Pdspf ( t , 13 , 2 , yk) ;goto 2;end; 
else begin wr ite(#7 ) ; goto 2;end;end; 
end; else wr ite(#7 ) ; end ; end ; 
until false;end; 
end ; 


begin 

r : =9+q ; term : =terl ; z : =u+u ; v: =h+h; žac 
s[l]:='l. Emulace terminálu CM7202' 
s[2]:='2. Emulace terminálu CM7209' 
s[3]:='3. Změna parametru přenosu' 
m[l]:=' Sériový port 
m[2] : = ' Rychlost přenosu 
m[3] : = ' Parita 
m[4] 
m[5] 
m[6] 

PCI] 
e[2] 
e[4] 
e [6] 
e[8] 
x[2] 
d [ 1 ] 
b[ 1] 
t [1] 
t [2] 
t [3] 


= 0 ; 


Počet 

dat . 

bitu ' ; 

Počet 

stop 

bitu ' ; 

Prvni 

volba 

> 

C0M 1 ' ; 

p[2] : = 

'C0M2 ' ; e [ 

4800' 

;e[3]: 

=' 2400'; 

1200' 

;e[5]: 

=' 600'; 

300' 

íe[7]: 

= ' 150';- 

110' 

j x [ 1 ] : 

= ' lichá ' ; 

suda ' 

j x [ 3 ] : 

= ' zadna ' ; 

7 bitu 

*;d[2] 

:='8 bitu 


9600' 


= 'l 


stopbit ' ; b C 2 ] : = '2 stopbity 
CM 7202' 


=' CM 7209' 

=' Inicializace' 


GetIntVec(ComInt , altcom) ; 


exitsave : =exitproc ; exitproc : =@myexit ; 
CheckBreak: =f alsejOrigmode : =Lastmode ; 
Textmode(C080) ; 5 :Textbackground(white) ; 
window( 1, 1, 80, 25) ; clrscr ; 
Textbackground(blue ) ; window(4 , 2, 77 , 16) ; 
clrscr;Textbackground(green) ; 

Textcolor( 14) ;gotoxy( 10, 3) ; 
write(r , v, v, v, v, v, v, v, v, v, v, v, v, v, v, v, 
v, v, v, v, v, v, v, v, v, v, v, v) ;gotoxy( 10,4) ; 
'write(r,sp:15,r,v,v,v,h,q,v,v,v,r,sp:3, 
r , sp : 14, r ) ; gotoxy( 10, 5) ; write(r , sp : 15 , 
r , sp : 7 , q , sp : 6 , r , sp : 3 , r , sp : 14 , r ) ; 
gotoxy( 10, 6) ; write( r , sp : 15 , r , sp : 7 ,q , 
sp : 6 , r , sp : 3 , r , sp : 14 , r ) ; gotoxy ( 10,7); 
wr i t e ( r , sp : 15 , r , sp : 7 , q , sp : 6 , r , sp : 3 , r , 
sp: 14 , r ) ; gotoxy( 10,8);write(r,z,z,z,z, 
z , sp : 5 , r , sp : 14 , r , sp : 3 , r , sp : 14 , r ) ; 
gotoxy( 10, 9) ; write(r , sp : 15, r , sp : 14, r , 
sp : 3, r , sp : 14 , r ) ; gotoxy ( 10,10) ; write(r , 
sp : 15 , r , sp : 14 , r , sp : 3 , r , sp : 14 , r ) ; 
gotoxy (10, 11 ) ; wr ite( r , sp : 15 , r , sp : 14 , r , 
sp:3,r,z,z,z,z,z,z,z,r);gotoxy(10, 12); 
write(r,z,z,z,z,z,z,z,z,z,z,z,z,z,z,z,z, 
z,z,sp,'(c) 1989 - PKSof ť ) ; Bottom( 1 ) ; 
window(4 , 18,77,21) ;Textcolor( 143 ) ; 
gotoxy( 34, 2) ; write( 'Okamžik' ) ; 
if zac=0 then begin lnit(0); 

Inc(zac) ;yl : =yk;goto 5,'end; 
Textcolor( 12) ; Textbackground( 0 ) ; 


gotoxy(26,yl) ; write(s[wherey] ) ; 
Textbackground(white) ; oase yl of 
1: begin gotoxy( 26 , 2 ) ; wr ite( s[2] ) ; 
gotoxy (26, 3) ;write(s[3] ) ; gotoxy (26 , 1) ; 
end; 2 : begin gotoxy( 26 , 3) ; write(s[3] ) ; 
gotoxy (26, l);write(s[l] ) ; gotoxy (26 , 2 ) ; • 
end;3:begin gotoxy (26, l);write(s[l]); 
gotoxy (26, 2) ;write(s[2]) ; gotoxy (26 , 3) ; 
end ; end ; repeat i:=0;if zac=l then begin 
repeat Inc(i);until keypressed or 
( i = 15000 ) ; if i = 15000 then c:=#13 else 
c : =readkey ; Inc( zac ) ; end 
else begin repeat until keypressed; 
c : =readkey ; end ; 

if c=#0 then Arrows(s,27,0,2) 

else begin oase ord(c) of 
1: exit; 13: begin čase wherey of 
2: begin yl : =2 ; term : =ter2 ; Emulace ; end ; 

3: begin yl : =3 ; Init( 1 ) ; end ; 
else begin yl : =1 ; term : =terl ; Emulace ; end ; 
end; goto 5; end; 

49: begin yl : =1 ; term : =terl ; Emulace ; 
goto 5; end; 

50: begin yl : =2 ; term : =ter2 ; Emulace ; 
goto 5; end; 

51: begin yl : =3 ; Init( 1 ) ; goto 5;end; 
107,75:begin yl : =wherey ;Keys;goto 5;end; 
else write(#7) ; end ; end ; until falše; 
end . 



PRIPOJENIE TLA 

K6314 K PMD 85-2 A SHAI 


nájsť v príslušnej dokumentácii k tomuto 
obvodu (například v 1 6 1). V krátkosti možno 
zhrnúť: Podmienka vyslania informácie je, 
že signál ACKn musí byť v stave log.1. Ak 
tento signál invertujeme, móžeme povedať, 
že invertovaný signál ACKn v log.O znamená 
žiadosť tlačiarne o vyslanie informácie, t. j. 
signál ACn. Porovnáním s IRPR teda možno 
konštatovať: 


Ing. Peter Synek, Jána Smreka 12. 841 07 Bratislava 

Dostal som sa před úlohu připojit osobné mikropočítače typu PMD 
85-2 a Sharp MZ800 k tlačiarni Robotron K6314. Každé z týchto 
zariadení je vybavené iným typom interfejsu. Tlačiareň má interfejs 
typu IFSP (u nás sa označuje IRPR), mikropočítač Sharp MZ800 má 
interfejs typu Centronics a PMD 85-2 využívá mód 1 integrovaného 
obvodu MHB 8255A s podporou handshake. 


Popis interfejsu IRPR (obr. 1) 

Výměna informácií (D0 : D7)n sa vykoná- 
vá za pomoci signálov ACn a SCn v režime 
žiadosť - odpověď. Signálom ACn žiada 
tlačiareň o vyslanie dát. Počítač platnosť dat 
potvrdzuje signálom SCn. 

Počítač móže vyslať data a signál SCn iba 
za podmienky, keď tlačiareň vysiela signál 
ACn. Tlačiareň móže ukončiť ACn za pod- 
mienky, keď počítač vysiela signál SCn. 


Popis intefejsu Centronics - 
Sharp MZ 800 (obr. 2) 

Bližší popis nájdu záujemci v 1 1 |. 
Porovnáním s intefejsom IRPR možno 
napísať: 

RDAn = ACn 
RDPn - SCn 

Data sú vzájomne invertované. 


Popis interfejsu PMD85-2 (obr. 3) 


signál směr 

tlačiareň- počítač 

šš l - 

«T| 

3Ť I I 

\ 

5? | jj 

i I 

DATA 1 | 


Obr. 1. Signály interfejsu IRPR (903-1) 


signál směr 

tlačiareň -počítač 

ŘĎÁ I [ 

I 

wp i u 

DATA 1 | 


OBFn = SCn 
ACK - ACn 

Data sú vzájomne invertované. 


Koncepcia a riešenie prepojenia 

Na základe predošlých konštatovaní bola 
zvolená nasledovná koncepcia riešenia. 
Bola vyhotovená jedna doska plošného spo- 
ja zakončená konektorom FRB, ktorým sa 
pripája priamo do PMD 85-2. Z druhej strany 
je vedený kábel zakončený konektorom pre 
pripojenie tlačiarne (konektor sa dodává 
s tlačiarňou). Pre pripojenie osobného mi- 
kropočítača Sharp MZ 800 bola zrealizova- 
ná ,,redukcia“, prevádzajúca signály z pria- 
meho konektora počítača Sharp na konektor 
FRB tak, aby sa tlačiareň pripájala cez tento 
konektor FRB rovnako ako ku počítačů PMD , 
85-2. 

Realizácia celého pripojenia je zřejmá zo 
schémy na obr. 4. Obrazec plošných spojov 
je na obr. 5. 

Hradlá integrovaných obvodov DD2 
a DD3 slúžia na invertovanie výstupných 
datových signálov z mikropočítačov. Hradlá 


signál směr 

tlačiareň - počítač 

ÁČK 1 J *■" 

SBF~ 1 J 

DATA [ | 


Využívá sa tu mód č. 1 integrovaného Obr. 2. Signály interfejsu Centronics Sharp > 
obvodu MHB8255A a bližší popis možno (903-2) Obr. 3. Signály interfejsu PMD-85 (903-3) 





Cl 100 nF 

C2 50jjF/6 V 


Obr. 4. Schéma pripojenia (903-4) 


DD1 .3 a DD1 .4 slúžia na výkonové prispóso- 
benie signálu OBFn z počítača PMD 85-2, 
ktorý je vedený priamo z MHB8255A bez 
výkonového zosilnenia. Vstupné obvody 
IRPR tlačiame sú riešené odporovým pri- 
spósobením s rezistormi malých odporov 


a priame pripojenie by mohlo viesf k poško- 
deniu MHB8255A. V případe počítača Sharp 
MZ800 vlastně tieto hradlá nemajú význam, 
pretože všetky jeho výstupy sú výkonovo 
prispósobené. Signál ACn sa z tlačiarne 
privádza priamo na vývod č. 7 konektoru 


FRB, odkiaf je v případe počítača Sharp 
MZ800 vedený ako signál RDAn priamo do 
počítača. V případe PMD 85-2 třeba tento 
signál invertovať. Na to sa využívá invertor, 
ktorý je na konektore FRB v PMD85-2 vyve- 
dený. Vývod č. 7 je vstupom tohoto invertora, 
jeho výstup je na vývode č. 6, odklaf je signál 
vedený na vývod číslo 10 ako signál ACKn. 

Signál SOn je natrvalo připojený na log.O. 

Napájacie napátie +5 V pre integrované 
obvody je použité z tlačiarne cez nevyužitý 
vývod č. C8. 

Realizácia ,,redukcie“ pre pripojenie 
Sharp MZ800 spočívá iba v připevnění vhod- 
ných konektorov na spoločnú doštičku a ich 
vzájomnom přepojení drátovými spojmi. 
Prepoje sú jasné zo schémy (obr. 4). 

Oživenie a uvedenie do chodu by nemálo 
robiť problémy vzhradom na jednoduchost 
zapojenia. Nesmie sa však zabudnúť v inter- 
fejsu IRPR tlačiarne vyviesť na příslušný 
nevyužitý vývod (u nás C8) napájacie napá- 
tie +5 V). 


Zoznam súčiastok 


DD1.DD2, DD3 MH7438 

R1 - R10 • IkQ, TR 21 1 

Cl lOOnF, TK783 

C2 50 uF/6V, TE 981 

konektor FRB TY512201 1/20 

konektor FRB TX51 12013/20 

pre Sharp MZ800 

konektor WK46580 (skrátený na 

2x13 vývodov) pre Sharp MZ800 


1 

2 


3 

4 

5 

6 


Literatúra 

Centronics. Amatérské rádio A 10/1984, 
str. 382. 

Systém malých elektronických počíta- 
čov SMEP, Abecednočíslicový displej 
SM 72-00. Technická dokumentácia, 
Vydavatelství Novinář Praha pre Teslu 
Orava. 

Technický popis modulu UKPR-8. 
Technická dokumentácia TESLA. 

MZ 800. Owner’s manual, Sharp. 

PMD 85. Učebný materiál kurzu „Basic 
G“, Datasystém. 

Kočiš, /., Sulko, /.: Mikroprocesory a mi- 
kropočítače. ALFA, Bratislava - 1986. 



Obr. 5. Obrazec plošných spojov zo strany Obr. 6. Obrazec plošných spojov zo strany Obr. 7. Rozmiestnenie súčiastok na doske 
' spojov na doske Y504 (903-5) súčiastok na doske Y504 (903-6) Y504 (903-7) 








Ing. iVO Křepinský, Karlovarská 5, 301 12 Plzeň 

Generátor tiskových seslav slouží k ulehčení práce při vytváření programů pro tisk. Tvoří jej soubor 
procedur v Turbo Pascalu, které je nutno připojit k programu. 

Tisková sestava se tiskne podle předlohy vytvořené předem textovým editorem. V předloze jsou 
vyznačena pole prt> tisk hodnot. Do těchto polí se při běhu programu doplňují konkrétní údaje a výsledná 
sestava se tiskne. 

v Tiskovou sestavu je možno nejen vytisknout na tiskárně, ale i na jiném zařízení (terminál), případně ii uložit 
do souboru. 


Výhody GTS: 

- jednoduchý a rychlý návrh tiskové sesta- 
vy- 

- zkrácení programu pro tisk, 

- snadnější ladění bez složitého vypočítá- 
vání polohy na papíru, 

- oddělení grafické a obsahové složky tis- 
ku, 

- možnost úprav tiskové sestavy bez zása- 
hu do programu, 

- navržená tisková sestava slouží zároveň 
jako část dokumentace, 

- výstup je možno ve stejném tvaru posílat 
na libovolné výstupní zařízení nebo do 
souboru. 

Generátor tiskových sestav je vytvořen 
V Turbo Pascalu v. 3 a je použitelný v pro- 
gramech napsaných v tomto jazyku na 
všech počítačích, kde pracuje překladač to- 
hoto jazyka. 


— Vytvoření předlohy 

Předloha pro tiskovou sestavu se vytváří 
libovolným textovým editorem (např. Word- 
star). Obsahuje pevné texty sestavy v tom 
tvaru, jak mají vypacfat na výstupu. Dále 
obsahuje pole pro výstup hodnot. Tato pole 
jsou označena znakem (podtržítko). Dél- 
ka pole je určena počtem podtržítek. 

Pole musí být na jedné řádce, nesmí být 
rozděleno na více řádek. Není možno umístit 
dvě pole těsně za sebou bez oddělení jiným 
znakem. 

Soubor obsahující předlohu tiskové sesta- 
vy musí mít standardní příponu “,TS“. 


Použití GTS 


Vyplňování hodnot 

Program nejprve musí přečíst ze souboru 
předlohu tiskové sestavy (procedura TSRE- 
AD). Předloha setrvává v paměti a je možno 
ji používat, dokud není přečtena jiná. 

Po přečtení předlohy je možno postupně 
vyplňovat pole pro hodnoty. Aktivní pole je 
určeno polohou ukazovátka. Po přečtení 
předlohy, po tisku sestavy a po užití proce- 
dury TSFIRST je ukazovátko nastaveno na 
první pole tiskové sestavy. Každý zápis hod- 
noty (procedura TSPRINT) posunuje ukazo- 
vátko na další pole. Procedura TSSKIP 
umožňuje přeskočit pole bez vyplnění. 


Ovládání výstupního souboru 

s VýsluÉ '.ift- :« adtocfa K>sílat do libovQíného 
v Turbo P^ičtíu . Při 
Mtí •t-n:'dl,.'^^^|pnliffkátorů (CON:, 
ssílat i na výstupní 

f*P«d Vš@řní výstupy je nutno soubor otevřít 
TSOČEN), po ukončení uzavřít 
(procedurá TSCLOSE). 


Všechny výstupy (procedury TSOUTPUT 
a TSWRITE) se posílají do otevřeného sou- 
boru. 

Použití generátoru v programu 

Na počátku programu je nutno nadefino- 
vat konstantu TSLEN, která udává maximál- 
ní počet znaků největší předlohy, která bude 
v programu použita. 

Generátor se k programu připojí direktivou 
j $1 GTS[. 

Procedury pro práci 
- s generátorem 

\ 

TSOPEN(Soubor:string| 14 |) 

- otevírá výstupní soubor, 

- tato procedura musí být použita před všemi 
výstupy (TSOUTPUT a TSWRITE), 

- může být uvedeno libovolné jméno soubo- 
ru (tiskárna je LST:, terminál CON:), 

- všechny výstupy prováděné procedurami 
TSOUTPUT a TSWRITE se provádějí do 
otevřeného souboru. 

TSCLOSE 

- zavírá výstupní soubor, 

-je nutno použít, pokud je výstupním soubo- 
rem diskový soubor, jinak se data nezapíší. 

TSREAD(Soubor:string| 14 |) 

- čte předlohu tiskové sestavy ze zadaného 
souboiu, 

- jméno souboru se zadává bez přípony - ta 
je vždy .TS, 

- ukazovátko se nastaví na první pole sesta- 
vy, 

- předloha sestavy zůstává v paměti až do 
přečtení jiné předlohy. 

TSPRINT(Hodnota:string| 255 |) 

- zapisuje hodnotu do tiskové sestavy, 

- zápis se provádí vždy do současného pole, 

- po zápisu se ukazovátko nastaví na násle- 
dující pole, 

~ při zápisu se začíná od prvního znaku 
výstupního pole, 

- znaky hodnoty přesahující délku pole se 
odříznou, 

- zbývající znaky do délky pole se doplní 
mezerami, 

- zápis se provádí pouze do paměti, výstup 
se provede až procedurou TSOUTPUT. 

TSSKIP 

- přeskakuje současné pole, 

- ukazovátko se nastaví na následující pole. 

TSFIRST 

- nastavuje ukazovátko na první pole sesta- 
vy. 

TSOUTPUT 

- zapíše kompletní sestavu do výstupního 
souboru, 


- místo nevyplněných polí se tisknou meze- 
ry, 

- po skončení zápisu se nastaví ukazovátko 
na první pole sestavy a je možno znovu 
vyplňovat pole. 

TSWIRE(Retezec:string| 255 |) 

- zapíše řetězec do výstupního souboru, 

- slouží pro nestandardní výstupy a pro 
ovládání tiskárny (např. odstránkování), - 

- řetězec se do výstupního souboru zapíše 
přesně v zadaném tvaru, 

- zápis do výstupního souboru se provádí 
ihned. 

Poznámka: Pokud mají procedury paramet- 
ry, jsou všechny typu řetězec. Procedury 
nevracejí žádné hodnoty. 


Popis realizace GTS 

Generátor tiskových sestav je navržen 
jako soustava procedur. Pro přehlednost 
a názornost jsou procedury dále členěny na 
menší podprogramy. 

Názvy všech objektů (typů, proměnných 
a podprogramů), které jsou deklarovány jako 
globální, ale jsou určeny pouze pro GTS, 
začínají znaky “TSJ‘, aby byla vyloučena 
možnost kolize. Názvy všech objektů, které 
je možno v programu využívat, začínají zna- 
ky “TS". 

Pomocné proměnné 

TS_M:array| 0 . . TSLEN |of char 

pole pro předlohu tiskové sestavy, naplňuje 
se při TSREAD; výstupní pole jsou označe- 
na nastavením nejvyššího bitu na 1 . 

TS_Ptr:lnteger 

ukazatel do pole TS_M na akutální znak; 
obsahuje polohu, kde se bude číst nebo 
zapisovat. 

TS_Soubor:text 

výstupní soubor. 

Pomocné procedury a funkce 

TSJnit 

inicializace ukazatele TS_Ptr. 

TS.Put (Znak:char) 

zápis znaku do pole TS._M a zvýšení ukaza- 
tele TS_Ptr. 

TS_Get:char 

čtení znaku z pole TS_M a zvýšení ukazatele 
TS_Ptr. 

TS_Dirget:char 

čtení znaku z pole TS_M bez zvýšení ukaza- 
tele TS_Ptr. 




TS_lsF(Znak:char)boolean 

určuje, zda je daný znak součástí pole pro 
výstup hodnoty. 

TS_SetF(Znak:char):char 

vrací zadaný znak jako součást pole pro 
výstup hodnoty. 

TS_GetF(Znak:char):char 

vrací zadaný znak bez označení jako sou- 
část pole pro výstup hodnoty. 

Poznámka: 

Realizace je navržena tak, aby bylo možno 
provést některé změny. Pomocí procedur 
a funkcí je oddělen problém uschování před- 
lohy tiskové sestavy a problém označení polí 
pro výstup hodnoty. 

Popis algoritmu 
hlavních procedur 

TSOPEN 

- přiřazení názvu souboru k TS_Soubor, 

- otevření pro zápis. 

TSCLOSE 

- zavření souboru. 

TSREAD - lokální proměnné: 

Souborfile - soubor předlohy. 
Sektorrarray | 0 . . 127 | of char - oblast 
pro čtení sektoru. 


- přiřazení názvu předlohy k Soubor a ote- 
vření pro čtení, 

- iniciafizace TS_Ptr, 

- čtení sektoru ze Soubor až do konce 
souboru: 

- pro každý sektor, 

- Převod znaku ‘J na vnitřní označení 
výstupního pole, 

- uložení znaku do paměti, 

- zavření souboru předlohy, 

- přidání ~ Z na konec, 

- nastavení prvního pole (TSFIRST). 

TSFIRST 

- inicializace TS_Ptr, 

- vyhledání prvního znaku s označením 
výstupního pole. 

TSSKIP 

- přeskočení znaků s označením výstupní- 
ho pole 

- vyhledání následujícího znaku s označe- 
ním výstupního pole. 

TSPRINT 

- od současné polohy se hodnota zapisuje 
až do délky pole, 

- zbývající znaky hodnoty se ignorují, 

- pokud není vyčerpána délka pole, doplní 
se mezerami, 

- skok na další pole (TSSKIP). 

TSOUTPUT 

- inicializace TS_Ptr, 


- celá sestava, znak po znaku až do Ž, se 
zapíše do souboru, 

- nastaví se první pole (TSFIRST). 

Návrh úprav programu 

Zjednodušení programu: 

- většinu pomocných podprogramů je mož- 
no zrušit a jejich činnost přenést na místo 
jejich volání - program se tím zkrátí, 

- výstup je možné omezit pouze na tiskárnu; 
pak je možno zrušit procedury TSOPEN 
a TSCLOSE a zjednodušit výstupy. 

Vylepšení programu: 

- přidělovat paměť pro předlohu tiskové 
sestavy dynamicky, 

- vytvořit zásobník předloh v pBrtiéti a tím 
umožnit opakované použití předlohy bez její- 
ho nového čtení, 

- umožnit v proceduře TSSKIP přeskaková- 
ní polí nazpátek a přeskakování o zadaný 
počet polí, 

- zavést různé formátování výstupu hodnot 
do polí sestavy (např. zarovnání vpravo, na 
daný počet desetinných míst) (většina těchto 
úprav však s sebou přináší značné zvětšení 
programu bez patrných výhod pro pro- 
gramátora). 

Realizace v jiných jazycích: 

Navržený algoritmus GTS je možno reali- 
zovat i v jiných programovacích jazycích 
téměř shodně. 

Pro počítače, které nemají diskovou pa- 
měť, by bylo možné algoritmus upravit tak, 
aby pracoval s předtóhou tiskové sestavy 
zadanou jako data v programu, Tím se však 
odstraňuje jedna z hlavních výhod GTS 

- jednoduché a názorné vytváření předlohy. l , 
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Obr. 1. Předloha obou částí sestavy (930-1 ) 

SEZNAM PRACOVNÍKU 

Datum: 01—08—89 

Cislo: 1 

Pri jmeni : 

Novák 

l 



Jméno: 

Datum narozeni 

Josef 

: 01-01-48 

Misto: 

Plzeň 

Cislo: a 

Pri jmeni : 

Jméno : 

Datum narozeni 

Soukup 

Jiri 

: 10-02-56 

Misto: 

Praha 


Petržití GTS je předvedeno na jednodu- 
chém příkladu. Program tiskne seznam pra- 
covníků z diskového souboru. 

Každý list sestavy se skládá 2 híávičky 
£ výpisu údajů o několika zaměstnancích. 
Program vvlát vá dvě předlohy pitá ťýtó dvě ] 
Části tiSkdWsěstavy - jedhu pro nfevičku ? 
a jednu pro údaje o jednom zaměstnanci. Na 
každoirstranu še pak tiskne nejprve hlavička 
s doplněným datem a ČÍŠtpm strany á pak 
daný počet zamésmář^ toro každého se 
doplňuje jeho pořadovém!© a další Stflpžé 
souboru). ' , 


Výpis 1. Generátor tiskových šěstav 

(930-V1) ?; 7 

{ ******************************* 

* GTS * 

* generátor tiskových sest av * 

* • é" 

* Ing. Ivo Krepinsky ♦ 

* tc> 1906, 1989 * 

* * 
f*******«******************###e 



proced ury 


Popis: 

Soubor 
pro ti*|r s **i 

Pour**i» ’ - wj* m 

Soubor ÉiCkjpíBraaiu při- 
dává direktivou TB. Na za- 
čátku programu i mus i byt prove- 
. děno nastaveni konstanty TSLEN 
- maximální délka tiskové se- 
stavy v bytech > 


Obr. 2. Příklad sestavy (930-2) 


type 

TS_Strl4=stringC143 5 
TS_Str255=stringC255] ; 

var 

TS_M : array C0. . TSLEN3 of char; 
TS_Pt r : I nt eger ; 

TS_Soubor : text ; 

proceduře TS_Init; 
begin 

TSPtr : =0 ; 
end ; 

proceduře TS_Put (Znak i char) ; 
begin 

TS_MCTS_Ptr] :~Znak; 
if TS_Ptr (TSLEN then 
TS_Pt r ; =TS JPtr+1 ; 

end; 

f unct i on TS_Get : char ; 
begin 

TS_Bet :=TS_METS_Ptr] ; 
if TS_Ptr (TSLEN then 
TS_Pt r : =TS_Pt r+ 1 ; 
end ; 

function TS_DirGet :char ; 
begin 

TS_DirGet :=TS_MCTS_Ptr] ; 
end; 

function TS_IsF(Znak:char) : 

boolean; 

begin 

TS_IsF:=Znak>#127; 

end; 

function TS_SetF (Znak: char) s 

char; 

begin 

TS_SetF:=Chr (Ord (Znak) or $80); 
end; 

■C vypiš seznamu pracovníku} 
4**kazkovy program použiti GTS> 

const 

TSLEN=262; 

GTS> 

type , 

Str8=stringC83 ; 

proceduře Hlavička 

(Strana: integer;Datum:Str 8 ) ; 

var 

Cislo:strir»gC4] ; 
begin 

if Strana) 1 then TSWRITE (' N L) ; 
TSREADÍ’ TESTI* ) ; 

Str (Strana, Cislo) ; 

TSPftINT (Cislo) ; 

TSPRINT (Datum) ; 

TSOUTPUT ; 

TSREPD(’TEST2’ ) ; 
end; 


vay 

Dat uru : Str 0 ; 

Soubor :st ring Cl 41 ; 

Dat a: text ; 

Příjmení :string C20] ; 

Jméno :st ring C15] ; 

Nar rstring C83 ; 

Mi*sto:stríng C153 ; 

Strana, Cislo: integer ; 
RetCis:string C51 ; 

begin 

Write(’ Datum: ’); 
Readln(Datum) ; 

Write(* Výstupní soubor: ’); 
Readln (Soubor) ; 

TSOPEN (Soubor) ; 

ftssign (Dat a, * TEST. DPT’ ) ; 

Reset (Data) ; 

Strana:=l ; 

Cislo:=0; 

while not EOF (Data) do 
begin 


if (Cislo mod 4)=0 then 
Hlavička (Strana, Datum) ; 
Readln (Data, Pri jmeni. Jméno, 

Nar, Místo) ; 

Cislo:=Cislo+l ; 

Str (Cislo:5, RetCis) ; 

TSPRINT (RetCis) ; 

TSPRINT (Pri jmeni) ; 

TSPRINT (Jméno) ; 

TSPRINT (Nar) ; 

TSPRINT (Misto) ; 

TSOUTPUT; 

end; 

Close(Data) ; 

TSWRITE ('■'L) ; 

TSCLOSE ; 
end. 

while TS_DirGet O^Z do 
Write(TS_Soubor, 

TS_GetF(TS_Get) ) ; 

TSFIRST ; 
end; 

proceduře TSWRITE (Val ue: 

TS_Str255) ; 

begin 

Write(TS_Soubor, Value) ; 
end ; 

proceduře TSOPEN (Spec :TS_Str 14) ; 
begin 

ftssign (TS_Soubor, Spec) ; 

Rewrite (TS_Soubor) ; 
end; 

proceduře TSCLOSE; 
begin > 

Cl ose (TS_Soubor) ; 
end ; 

V 

Výpis 2. Ukázkový program použití GTS 
(930-V2) 

function TS_GetF (Znak: char) : 

char; 

begin 

TS_GetF:=Chr (Ord (Znak) and 


proceduře TSFIRST; 
begin 
TS Init; 


while not TS_IsF (TS_DirGet > do 
if TS_Get= A Z then Exit; 
end ; 

proceduře TSSKIP; 
var 

Znak : char ; 
begin 

while TS_IsF(TS_DirGet) do 
Znak : =TS_Get ; 

while not TS_IsF (TS_DirGet ) do 
if TS_Get=~Z then Exit; 
end ; 

proceduře TSREftD (Spec:TS_Strl4> ; 
var 

Soubor : f i le; 

Sektor:array C0. . 1273 of char; 
I: integer; 
begin 

Ass i gn (Soubor, Spec-*-’ . TS’ ) ; 
Reset (Soubor) ; 

TS_Init ; 

while not EOF (Soubor) do 
begin 

BlockRead (Soubor, Sektor, 1 ) ; 
for I:=0 to 127 do 
begin 

if Sektor CI]=’ then 
SektorCI] :=TS_SetF(» ’ ) ; 
TS_Put (SektorCI! ) ; 
end ; 
end ; 

Close (Soubor) ; 
if SektorCI! O^Z then 
TS_Put (~Z> ; 

TSFIRST; 
end ; 

proceduře TSPRINT (Value: 

TS_Str255) ; 

var 

I : integer ; 
begin 

for I:=l to Length (Value) do 
if TS_IsF(TS_DirGet) then 
TS_Put (TS_SetF (ValueCIl ) ) ; 
while TS_IsF(TS_DirGet) do 
TS_Put (TS_SetF (’ ’ ) ) ; 

TSSKIP; 
end ; 

proceduře TSOUTPUT ; 
begin 
TS_Init ; 



Ing. Petr Kandera, Krasnoarmejcú 2, 704 00 Ostrava 3 

článek se zabývá použitím hardwarové násobičky MH1 02 v osmibito- 
vých mikropočítačích. Při praktických aplikacích mikropočítačů např. 
v měřicí technice se dostává do popředí problém aritmetického zpraco- 
vání naměřených dat. Čistě programové řešení výpočtu je obvykle 
časově náročné, a proto se k jeho urychlení používají aritmetické 
koprocesory (např. I 8231, 1 8232 apod.), které se však obtížně shánějí 
a jsou drahé. Přitom v řadě aplikací vystačíme kromě součtu a rozdílu 
pouze s násobením, které ovlivňuje celkovou dobu výpočtu rozhodující 
měrou. 


Urychlit výpočet násobení lze použitím 
hardwarové násobičky s integrovaným ob- 
vodem MH102 k.p. Tesla Rožnov. Tento 
programovatelný periferní obvod, vhodný 
pro použití v systémech s mikroprocesorem 
typu 8080, je vyrobený technologií l 2 L a před- 
stavuje úplnou násobičku 8x8 bitů s mož- 
ností zaokrouhlení a práce se znaménkem 
v pevné řádové čárce. 

Principiální zapojení násobičky je na 
obr. 1. Obvod MH102 obsahuje 6 řídicích 


vstupů: CS, W, RD, A0, FR a RND1 , a 8 vstu- 
pú/výstupú datové sběrnice. Vstup CS je 
určen k vybavení obvodu a vstupy W a RD 
řízení zápisu resp. čtení dat. Logická úroveň 
na vstupu A0 určuje při zápisu prvního a dru- 
hého činitele a při čtení vyšší - nebo nižší bajt 
výsledku, vstup FR řídí formát násobení 
a RND1 zaokrouhlování podle funkční tabul- 
ky Tab. 1. 

Při praktické realizaci je nutné^připojit ob- 
vod -na datovou sběrnici mikropočítače přes 




Obr. 1. Principiální zapojení násobičky 
(913-1) 
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Tab. 1 . Funkční tabulka (91 3— T 1 ) 


stykový obvod, např. 8255, 8286 nebo 321 6. 
Řídicí signály lze odvodit z adresové a řídicí 
sběrnice, např. pro zápis a čtení signály 
JOWn a lORn, případně MWn a MRn mikro- 
procesoru 8080 a pro řízení násobení signá- 
ly adresové sběrnice. Signál CS pro vybave- 
ní obvodu odvodíme adresovým dekodérem 
(3205). Na obr. 2 je uvedeno konkrétní 
zapojení úplné násobičky pro základní sy- 
stém mikropočítače s mikroprocesorem 
8080, představovaný mikropočítačem PMI- 
80. Toto zapojení je realizováno s ohledem 
na maximální jednoduchost a minimální ná- 
roky na programovou podporu. Pro připojení 
na datovou sběrnici je využit oboustranný 
budič sběrnice 8286, řízený signály MRn 
á CS3n. Signál MRn řídí směr přepisu dat 
a signál CS3n výběr pouzdra (i u MH102). 
Tento signál je získán z adresového dekodé- 
ru 3205 v PMI-80 a je původně určen k řízení 
stránek paměti. Násobička je tedy adresova- 
ná jako sektor paměti a nikoliv jako V/V 
obvod, což kromě větší rychlosti přináší i vý- 
hodu většího instrukčního souboru pro práci 
s daty. Zápis a čtení dat obvodu MH102 řídí 
signály MWn a MRn a tři nejnižší bity adreso- 
vané sběrnice specifikují násobení. AO na- 
stavuje nižší a vyšší bajt, AI určuje zao- 
krouhlování a A2 formát násobení. Protože 
obvod MH102 je vyroben technologií l 2 L, 
jsou pro přizpůsobení datových signálů ur- 
čeny rezistory R (5,6kQ). Napájení obvodu 
je proudové z 5V přes sériový rezistor R s 
(33Q), napájení je u každého obvodu bloko- 
váno kondenzátory C b (100 nF). 

Programová obsluha násobičky je jedno- 
duchá. Ze zapojení a funkční tabulky sesta- 
víme adresy pro zápis a čtení vyššího a niž- 
šího bajtu pro jednotlivé typy násobení. Kon- 
krétné pro případ na obr. 2 platí: signál CS3n 
vymezuje v PMI-80 adresovou oblast 0C00H 
až OFFFH a volbou spodních tří bitů zajistí- 
me požadovanou funkci. Např. pro násobení 
8x8 bitů bez zaokrouhlení musí být A2 = 
= FR = L a AI = RND1 = L a pro nižší bajt 
(první činitel) AO = L a vyšší bajt (druhý 
činitel) AO - H. Pro podpogram vystačíme 
pouze s instrukcemi pro zápis a čtení dat 
z paměti. Např. podprogram pro násobení 
dvou bajtů uložených v registrech H a L s vý- 
sledkem v párovém registru HL vypadá tak- 
to: t 

MUX: SHLD 0C00H : Uložení činitelů 

LHLD 0C00H : Načtení výsledku 

RET 


Obr. 2. Konkrétní 
zapojení úplné 
násobičky 
(913-2) 





Návrh plošných spojů a podprogramy pro 
jednotlivé typy násobení neuvádím, protože 
si jistě každý uživatel přizpůsobí zapojení 
podle svých možností a vytvoří podprogra- 
my podle svých požadavků. Zapojení náso- 
bičky je značně univerzální a lze jej snadno 
přizpůsobit pro různé typy mikropočítačů 
s mikroprocesory typu 8080 nebo Z80. 


Literatura 

1 1 j Polovodičové součástky 1 984/85. Kata- 

log TESLA Rožnov k.p., Rožnov pod 
Radhoštěm, 1983. 

1 2 | PMI-80 - Uživatelská příručka. TESLA 

Piešťany k.p. 
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Před časom sa objevil v predaji zapisovač typu Sharp MZ-1P16, 
vybavený připojením Centronics. Nakol’ko počítač SORD M-5 komuni- 
kuje s tlačiarňou cez rovnaké rozhranie a originálny printer k tomuto 
počítačů nie je dostupný, používám uvedenú tlačiareň-zapisovač ako 
periférne zariadenie k tomuto počítačů. 


Sharp MZ-1P16 je vlastně štvorfarebný 
súradnicový zapisovač riadený zabudova- 
ným mikropočítačom, ktorý zabezpečuje 
činnosť v dvoch režimoch, a to v režime 
textovom, v ktorom komunikuje s počítačom 
ako tlačiareň, a v režime grafickom, v ktorom 
vykonává grafické příkazy (napr. příkaz 
X 1,10,20 má za následok vykreslenie 
X-ovej osi, na ktorej bude vynesených 20 
značíek vzdialených navzájom o 10 krokov). 
Nakotko k zapisovačů je dodávaný podrob- 
ný návod, ktorý obsahuje popis všetkých 
grafických príkazov, ako aj riadiacich kódov 
textového režimu, nebudeme sa týmito ďalej 
zaoberaf, ale uvedieme riešenie základných 
problémov, s ktorými sa střetne majitef počí- 
tača SORD M-5 pri pripájaní tohto zapisova- 
ča. 

V prvom radě musíme vyriešíť napájanie. 
Zapisovač nemá vlastný'zdroj, nakorko vý- 
robca předpokládal jeho pripojenie ná zdroj 
počítača SHARP MZ-800. Užívatef je teda 
nútený postavit zdroj, ktorý dodá pri 5 V asi 
2 A (kfudový odběr zapisovača je len 0,5 A, 
ale pri zdvíhaní a sklápaní pierka dosahuje 
spomínané 2 A). 

Po připojení zdroja (kladný pól napájania 
je na vonkajšej straně konektora, kým zápor- 
ný pripájame ke středovému vodičů) a otes- 
tovaní zapisovača autotestom pristúpime 
k jeho pripojeniu na počítač. 


Pri pripájaní vychádzame zo zapojenia 
konektoru tlačiarne, ktoré je uvedené na 
obr. 2. Ďalej musíme vziať do úvahy rozdiel- 
nosti v ponímaní štandardu Centronics 
u oboch firiem. Táto rozdielnosť spočívá 
v tom, že tlačiareň považuje signál RDP 
(analog STROBE) za aktívny pri vysokej 
logickej úrovni, kým počítač SORD M5 ho 
považuje za aktívny pri úrovni nízkej. Túto 
rozdielnosť vyriešime zapojením invertora 
medzi příslušné dva vývody. Výsledné zapo- 
jenie je na obr. 1 . Ako invertor je použité 
jedno hradlo NAND obvodu MH7400 s pře- 
pojenými vstupmi. 


Programové zabezpečenie tlače 

V případe dokonalého prepojenia konek- 
torov (myslí sa dokonalého z hradiska odru- 
šenia signálu) vystačíme s rutinami obsiah- 
nutými v monitore počítača, na ktoré sa 
odvolává BASIC pri vykonávaní inštrukcií 
typu CLIST" PRT:“ a PRINT=2 .... kde 
kanál č. 2 bol priradený tlačiarni príkazom 
OPEN “PRT:“ AS=2 (tu sme využili příkazy 
jazyka BASIC-F). Týmto spósobom možno 
tlačiť všetky vefké písmená, a ostatně ASCII 
znaky, ktorých kódy spadajú do intérvalu 32 
až 95. Malé písmená nezodpovedajú štan- 
dardu ASCII, pokíar ide o ich'kódy, čo zne- 
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Obr. 


1. Schéma 
pňpojenia 
zapisovača 
Sharp MZ1 Pí 5 
k počítačů 
Sord M5 (905-1 ) 
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Obr. 2. Zapojenie konektoru tlačiarne 
(905-2) 

možňuje použitie příkazu LIST“PRT:“, ktorý 
vysiela inštrukcie a funkcie BASIC-u repre- 
zentované malými písménami, ale musíme 
použiť inštrukciu CLIST. Kódy malých pís- 
men sú vypísané v tabulke 1, pričom za 
každým znakom je uvedený jeho kód v de- 
siatkovej aj šestnástkovej sústave. 

Program, ktorý priamo konvertuje text 
z ASCII do kódu tlačiarne SHARP, je vo 
Výpise 1. Po spustení programu príkazom 
RUN vyšle počítač na obrazovku hlásenie 
SPRÁVA a načíta text' zložený maximálně 
z 64 znakov, ktorý vyšle na tlačiareň. Maxi- 
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málnu dížku textu móžeme nastavit' na riad- 
ku 5 prepísanim čísla 64 na číselná hodnotu 
požadovanej dížky textu. Na riadkoch 20 až 
40 sa tvoří převodová taburka kódov, pričom 
obsah prvej položky poía PREV bude obsa- 
hovat’ kód SHARP písmena ,,a“ a 26. polož- 
ka tohto poía kód písmena ,,z“, pričom 
všetky písmená sú zoradené v abecednom 
poradí. Na 50. riadku sa nastavuje riadiaci 
bajt drajvera tlačiarne tak, aby na konci 
riadku vysielal len kód CR a nie CR aj LF 
a aby neprevádzal automatické riadkovanie. 
Časť programu na riadkoch 80 až 120 vyko- 
nává konverziu reťazca načítaného na riad- 
ku 70, pričom výstup konvertovaného reťaz- 
ca prebehne na riadku 130. Opátovný štart 
výkonnej časti programu je zabezpečený 
príkazom GOTO 70 na konci programu. 

Štandardný drajver, obsiahnutý v monito- 
re počítača, je možné použiť len v případe 
dokonale odrušeného vedenia medzi počíta- 
čom a tlačiarňou. Ak máme problémy s pre- 
nosom (komolenie prenášaných textov 


a hlavně vynechávanie znakov) musíme vy- 
tvoriť program obsluhy tlačiarne v BASIC-u, 
ktorý zabezpečí pomalší přenos dát a tým aj 
vyššíu spoíahlivosť přenosu. Riešenie uve- 
deného problému je vo Výpise 2. Podpro- 
gram začínajúci návěstím SOUT je náhra- 
dou drajveru Centronics, t.j. vyšle kód jedné- 
ho znaku a signál STROBE prívedie do 
aktívneho stavu, potom čaká na potvrdenie 
příjmu (signál READY) a nakoniec privedie 
signál STROBE do stavu pasivného. 

Pre úplnosť třeba dodať, že datové bity 
rozhrania Centronics sú adresované hodno- 
tou 64. Signál STROBE prislúcha prvému 
a signál READY druhému bitu vstupnový- 
stupného kanálu adresovaného číslom 80. 
Prenášaný kód vstupuje cez premennú 
MPRIS. 

> Podprogram SPRINT přidá na koniec re- 
ťazca B$ znak CR a takto upravený reťazec 
vyšle na tlačiareň prostredníctvom podpro- 
gramu SOUT. 


70 SPRINT 

72 'PODPROGRAM PRINT 

73 '*************************** 

74 'NAHRADÍ PŘIKAŽ ' PRINT#2 BS, 

75 'PRIČOM PŘIPOJÍ ŽNAK "CR" NA 

76 'KONIEC RETAŽCA BS 

77 'PŘEDPOKLÁDÁME, ŽE TLACIARNI 

78 '"PRT:" PRISLÚCHA KANAL C.2. 

79 BS=BS+CHRSC8.0D3 

80 F0R IPRI=1 TO LENCBS3 
90 MPRIS=MIDSCBS, IPRI, 1 3 
100 GOSUB SOUT 

1 10 NEXT 

120 RETURN 

130 SOUT 

131 ' 

132 'PODPROGRAM • 0UT 

1 33 '*************************** 

1 34 ' UYSLE JEDEN ŽNAK, KT0RY JE 

135 'ULOŽENY • U PREMENNEJ MPRIS 

136 'NA TLAČIAREŇ. ' 

137 'PŘENOS SA PREUEDIE CEž R0Ž- 

138 ' HRANÍ E CENTRONICS. 

140 0UT 64, ASCI I CMPRIS3 

150 0UT 80,0:REPEAT:UNTILCINPC803AND 2 3> 
0 

160 0UT 80, 1 

170 RETURN 


0. 

161 

AI 

b 

154 

9A 

c 

159 

9F 

d 

156 

9C 

e 

146 

92 

f 

170 

AA 

9 

151 

97 

h 

152 

98 

; 

166 

A6 

j 

175 

AF 

k 

169 

A9 

1 

184 

B8 

m 

179 

B3 

n 

176 

B0 

o 

183 

B7 

P 

158 

9E 

q 

160 

A0 

r 

157 

9D 

s 

164 

A4 

t 

N 50 

96 

u 

165 

A5 

u 

171 

AB 

UJ 

163 

A3 

X 

155 

9B 

y 

189 

BD 

z 

1 62 

A2 








Tab. 1. Kódy malých písmen (905-T1) 

5 LEN 64 

10 0PEN "PRT:" AS#2 

20 DIM PREUC263 .-'TABULKA K0D0U MALÝCH 
25 'PÍSMEN 

30 F0R 1=1 TO 26:READ PREUCI3 :NEXT 
40 DATA 161,154,159,156,146,170,151,152, 
166,175,169,184,179,176,183,158,160,157, 
164, 150, 165, 171 , 163, 155, 189, 162 
50 P0KE &705A, 0 :REM NEUYSIELAT K0D"LF" 

60 'NA KONCI RIADKU 
70 INPUT "SPRAUA" ,'AS :BS="" 

80 FOR 1=1 TO LENCAS3 :M=ASCI I CMIDSCAS, I, 
'13 3 

90 IF M>96 AND M<123 THEN M=PREUCM-963 
100 'RREU0D MALÝCH PÍSMEN ž ASCII DO 
K0DU SHARP 
110 B$=BS+CHR$ CM3 
120 NEXT 
130 PRINT#2 ;BS 
140 GOTO 70 


Výpis 2. Riadenie tlačiarne v případe nedokonalého prepojenia 
konektorov (905-V2) 


Výpis 1. Program na výpis textu zloženého z malých aj velkých 
písmen (905-V1) 



MENU 


VOLBA 


Vypíše text menu obsluhy na 
obrazovku. 

Volá: 

Zajišťuje volbu funkce pro- 
gramu podle zadání obsluhy 
z klávesnice. 


Ing! Jiří Mitlohner, Zahradní 228, Sázava, PSČ 285 06 

Účel programu: 

1. Příklad využití programovacího jazyka LOGO v oblasti zpracování 
seznamů a textů. 

2. Předvádí a učí základní činnosti s databázovými systémy. 

3. Umožňuje vytvořit jednoduché znalostní a výukové systémy. 

4. Seznamuje s problematikou tvorby a využití jednoduché báze zna- 
losti. 


Volá: ZAPIŠ, EXPERT, 
VYPIŠ, KONEC, 
NADISK, ZDISKU, 
MAZE, TISKNE, 
DISKETA. 

Provádí výpis jednotlivých 
uzlů báze znalostí podle od- 
povědi obsluhy na texty spojů 
(odkazů), realizuje mechanis- 
mus vlastního expertního 
systému. 


Spuštění programu 

Po vložení diskety zapíšeme LOGO a tím 
zavedeme do operační paměti interpret jazy- 
ka LOGO. 

Na obrazovce vypsané texty echa inter- 
preta odpovídají 

a) 40 znakům v řádku obrazovky, pak zapí- 
šeme LOAD „EXPERTI ", 

b) 80 znakům v řádku obrazovky, pak zapí- 
šeme LOAD „EXPERT". 

Dále postupujeme podle popisu funkce 
programu a nápovědy na obrazovce. 


Popis báze znalostí 

Báze znalostí je reprezentována stromo- 
vou datovou strukturou, kde každý uzel je 
označen kódem; (kód odstavce libovolná 
znaková kombinace), popsán textem (text 
odstavce o max. délce 128 znaků) a je 
spojen s jedním nebo více následnými uzly 
odkazem na jejich kód (odkaz). Každé spoje- 
ní může být popsáno textem (text odkazu). 
Stromová struktura báze znalostí může být 
téměř libovolně větvená i se zpětným prová- 
záním. Programově je každý uzel báze zna- 
lostí reprezentován složeným seznamem, 
kód uzlu je jménem seznamu. Kódy uzlu jsou 
uloženy v seznamu (seznam jmen seznamů) 
se jménem „jména". 

Počáteční uzel, to znamená odstavec, 
u kterého začíná funkce experta, musí být 
označen kódem 1. Funkce experta ja ukon- 
čena odvoláním na kód (odkaz) KONEC, 
který nemusí být v bázi znalostí definován. 
Pořadí jednotlivých uzlů (odstavců) v bázi 
znalostí není rozhodující. Struktura je dána 
spojením jednotlivých uzlů odkazem na je- 
jich kód. 

Bázi ználostí můžeme uložit na disketu do 
souboru se zadaným jménem. Na disketě je 
ke jménu souboru automaticky připojena 
přípona .DAT, kterou při zadávání jména 
neuvádíme! 

Výpis zkušební báze znalostí, stejně jako 
báze znalostí příkladu „Expertiza při volbě 
počítače a jeho programového vybavení" 
jsou uvedeny ve výpisu. 


Popis funkce programu 

Program Expertík umožňuje základní ope- 
race pro tvorbu, uložení, výpis a realizaci 
jednoduché báze znalostí. Základní funkce 
programu jsou nabídnuty po spuštění pro- 
gramu a v menu obsluhy. Během chodu 
programu jsou průběžně uváděny nápově- 
dy, které umožňují využít všech jeho funkcí 
bez podrobného návodu. 


Jednotlivé funkce Expertíka nabízené 

v menu obsluhy jsou následující: 

E - expertík startuje. Start expertního nebo 
výukového programu na základě zada- 
né báze znalostí. 

Z - zápis baze znalosti. Zapsání nové, pří- 
padně doplnění stávající báze znalostí 
z klávesnice. Způsob zadání je uveden 
po vyvolání funkce na obrazovce a je 
patrný ze zkušební báze a z příkladu 
báze znalostí. 

V - vypiš baze znalosti. Umožňuje výpis 
jednotlivých uzlů báze znalostí na obra- 
zovce, případně jejich vymazání z data- 
báze. 

U - ulož bázi a disketu. Uloží bázi znalostí 
z operační paměti na disketu do soubo- 
ru se zadaným jménem. 

N - nahraj bázi z diskety. Přehraje z diskety 
do operační paměti bázi znalostí ulože- 
nou v souboru se zadaným jménem. 

T - tiskne bázi na tiskáme. Vytiskne bázi 
znalostí z operační paměti na tiskárně, 
výpis není stránkován. 

M - maz bázi znalosti. Vymaže celou bázi 
znalostí z operační paměti. 

D - výpis souboru diskety. Vypíše jména 
všech souborů diskety. 

K - konec programu. Ukončí práci pro- 
gramu Expertík s návratem do interpre- 
tu jazyka LOGO. 


Popis programu 

Program může sloužit jako učebnice jazy- 
ka LOGO pro zpracování seznamů. Jednotli- 
vé procedury a funkce je možné po zadání 
vstupních parametrů volat samostatně a sle- 
dovat tak jejich funkci. Proto jsou dále vyjme- 
novány všechny procedury a funkce, udán 
popis jejich činnosti a uvedeny případné 
vstupní paramatry. 

Základní procedury 

START Spuštění programu. Definuje 

počet znaků jedné řádky 
obrazovky. 

Volá: POPIS, EXSYS 

POPIS Vypíše úvodní text s dotazem 

na nahrání báze znalostí 
z diskety. 

Volá: ZDISKU 

EXSYS Realizuje výpis hlavního 

menu obsluhy a volbu jednot- 
livých funkcí programu. 

Volá: MENU, VOLBA 


ZAPIŠ 


VYPIŠ 


NADISK 


ZDISKU 


MAZE 


TISKNE 


DISKETA 


Volá: STA, CHYBA 

Realizuje-zápis báze znalostí 
z klávesnice do operační pa- 
měti. 

Volá: ZZ 

Provádí výpis báze znalostí 
po jednotlivých uzlech na 
obrazovku, a případně reali- 
zuje zadané mazání zobraze- 
ného uzlu. 


Volá: 


VYPS 


Kopíruje bázi znalostí z ope- 
rační paměti do pojmenova- 
ného souboru na disketě. Ptá 
se na jméno souboru, po za- 
dání kontroluje jeho existenci. 
Existuje-li soubor, čeká na 
odpověď k přemazání stávají- 
cího souboru. 

Volá: WTE 

Načte obsah zadaného sou- 
boru báze znalostí z diskety 
do operační paměti. Testuje 
existenci souboru a dává ob- 
sluze příslušné nápovědy. 


Volá: 


RED 


Po dotazu provede vymazání 
celé báze znalostí V operační 
paměti. 


Volá: 


MAZ 


Vypíše bázi znalostí z ope- 
rační paměti na tiskárnu. 
Dává obsluze příslušné ná- 
povědy. 

Volá: OUT 

Zobrazí na obrazovce se- 
znam souborů na disketě. 

Volá: 


Pomocné procedury a funkce 


STA 


Zajišťuje mechanismus výpi- 
su expertního systému až po 
nalezení kódu uzlu KONEC. 


Vstup: 

Volá: 


jm kód prvního uzlu 
VYBER 


VYBER 


Podle kódu najde uzel, který y-™ 
vypíše na obrazovku. Načte 4 ■ 



PIS 


CHYBA 

zz 


VSTUP 

VYPS 


TISK 


TISKNI 


RACEK 


VYMAŽ 


DEL 


VYPUSŤ 


z klávesnice kód spoje k dal- 
šímu uzlu. 


s jméno seznamu 
Volá: ROT 


Vstup: p kód uzlu 
Volá: PIS, ITM 


ROT Vrací o zadané číslo rotovaný 

seznam. 


Vstup: c souřadnice výpi- 
su na obrazovce 
p počet vypisova- 
ných znaků 
z vypisovaný znak 


Vypište číslo a texty spojů 
(odstavců) nalezeného uzlu. 

Vstup: i pořadové číslo spo- 
je v uzlu (objektu NAJDI 
seznamu) 

pr jméno uzlu (sez- 
namu) 

Volá: ODSTAVEC 

Výpis echa chyby báze zna- 
lostí. 

Rea/tzuje zápis jednoho se- 
znamu (uzlu báze znalostí) NAJ 
z klávesnice nebo z diskety 
(záleží na výběru vstupního 
zařízení) až po načtení kódu, 
ukončujícího zápis. 

Vstup: kod kód ukončující 
zápis 

Vrací: true byl ukončen 

zápis WTE 

Volá: . VSTUP 
Zařadí seznam z klávesnice 
nebo souboru diskety do ur- 
čeného složeného seznamu. 

Vypíše jeden uzel na obra- 
zovku a testuje stisk řídících 
kláves, podle kterých zruší 
další výpis, pokračuje výpi- 
sem dalšího uzlu, nebo volá 
proceduru mazající zobraze- OUT 

ný uzel (výpis seznamu). 

Vstup: jm kód zpracová- 
vaného uzlu (jméno 
seznamu) 

Volá: TISK, VYMAŽ 

Je-li v operační paměti umis- 
těna báze znalostí, vypíše kó- OUTS 

dem zadaný uzel na obrazov- 
ku (vypíše seznam). 

Volá: TISKNI 


Zobrazí na obrazovce jeden 
uzel (zobrazí objekty sezna- 
mu). 


RED 


Vstup: jm kód uzlu (jméno 
seznamu) 

Volá: RADEK 

Vypíše na obrazovku všech- 
ny objekty zadaného sezna- 
mu. 


Vstup: r jméno seznamu 

Vymaže z operační paměti 
zadaný seznam (uzel) a záro- 
veň vymaže i jeho jméno ze 
seznamu kódů uzlů (jmen 
seznamů). 


Volá: - DEL 

w , . . ITM 

Vymaže ze zadaného sezna- 
mu označený objekt. 

Vstup: p objekt 

js jméno seznamu 
Volá: VYPUSŤ. NAJDI 

Vymaže ze zadaného sezna- 
mu objekt se zadaným pořa- 
dovým číslem. 

RP 

Vstup: c pořadové číslo 
objektu 


Á/stup: c počet rotací o je- 
den objekt 
s jméno seznamu 

Testuje přítomnost zadaného 
objektu v seznamu a vrací 
jeho pořadové číslo v sezna- 
mu. 

Vstup: p objekt 

s jméno seznamu 
Volá: NAJ 

Vrací pořadové čislo objektu 
v zadaném seznamu. 

Vstup: c pořadové číslo 
prvku od kterého 
probíhá hledání 
p objekt 

s jméno seznamu 

Zapíše do souboru na disku 
seznamy, jejichž jména jsou 
zadaná v seznamu jmen (uzly 
báze znalostí). 

Vstup: sb jméno souboru 
na disketě 
jm jméno sezna- 
mu jmen 
Volá: OUT 

Zapíše na zvolené zařízení 
seznamy, jejichž jména jsou 
zadaná v seznamu jmen. 

Vstup: j jméno seznamu 
jmen 

Volá: OUTS 

Zapíše na zvolené zařízení 
objekty seznamu (spoje 
uzlu). 

Vstup: s jméno seznamu 

Čte ze souboru na disketě 
seznamy, jejichž jména jsou 
zadána v seznamu jmen (uzle 
báze znalostí). 

Vstup: sb jméno souboru 
na disketě 
Volá: ZAP 

Čte ze zvoleného vstupního 
zařízení seznamy až do nale- 
zení značky EOE (seznamu 
s textem EOE). 

Volá: ZZ 

Provede vymazání všech 
proměnných v operační pa- 
měti a inicializuje prázdný 
seznam jmen, vypíše hlášení. 

Vrací objekt se zadaným po- 
řadovým číslem ze zadaného 
seznamu, při zadání většího 
čísla než je poslední objekt 
vrací poslední objekt sezna- 
mu. 

Vstup: c pořadové číslo 
objektu v seznamu 
s jméno seznamu 

Provede výpis zvoleného 
počtu zadaného znaku na 
zvolené místo obrazovky. 


SP Výpis zadaného textu na zvo- 

lené místo obrazovky 

Vstup: c souřadnice výpi- 
su na obrazovce 
t jméno seznamu 
s vypisovaným tex- 
tem 

ODSTAVEC Provádí výpis textu ze sezna- 
mu do odstavce zadaného 
souřadnicemi na obrazovce. 

Vstup: poz souřadnice na 
obrazovce 
seznam jméno 
seznamu 
Volá: LINE 

LINE Vypíše jeden text seznamu 

do jednoho řádku odstavce. 

Volá: KONRADKU 

KONRADKU Hlídá fyzický konec řádku na 
obrazovce. 

SAVEC Pomocná procedura pro zá- 

pis zdrojového programu 
s echem na přepsání existují- 
cího souboru na disku. 

Vstup: spec jméno souboru 


Výpis 1. Program Expertík (931 -VI) 


(931-V1) 

TO START 
POPIS 
EXSYS 
END 

TO POPIS 

TS CT RP [2 8] 19 [*] 

SP [4 8] [* E X P E R T I K *] 

RP (6 8] 19 [*] 

SETCURSOR [84] 

(TYPE ■( "C ■) CHAR 32 [Ing.J.Hitlohner 1988]) 

SP [10 2] [Program umožňuje tvorbu a spusteni] 

SP [11 2] [jednoduchého expertního systému.] 

SP [12 2] [Funkce EXPERTIKA je dana bázi] 

SP [13 2] [znalosti, kterou můžete vytvořit] 

SP [14 2] [a zaznamenat na disk. Vytvořenou] 

SP [15 2] [bázi je mozne využit pri novem] 

SP [16 2] [startu EXPERTISA. ] 

RP [19 2] 36 [J 

SP [21 2] [Chceš nahrat ZNALOSTI z diskety ?] 

SP [22 30] [Ano / Ne] 

IF RC = "A [ZDISKU] 

STO 

TO EXSYS 
MAXE *k "FALŠE 
MENU 
VOLBA 

IF :k [CT SP [2 8] [PROGRAM EXPERTÍK JE UKONČEN !] 
WAIT 40 CT SETCURSOR [1 1] STOP] 

EXSYS 

END 

TO MENU 
TS CT 


SP [2 5] [KBHO-EXPERTIKA] 

RP [3 0] 38 [_] 

SP [5 5] [E -expert ik startuje] 

SP [7 5] [Z - zapiš baze znalosti] 

SP [8 5] [V - vypiš baze znalosti] 

SP [15 5] [K - konec programu] 

SP [9 5] [D - ulož bázi na disketu] 

SP [10 5] [N - nahraj bázi z diskety] 

SP [11 5] [M - maz bázi znalosti] 

SP [12 5] [T - tiskni bázi na tiskáme] 

SP [13 5] [D - vypiš souboru diskety] 

RP [19 0] 38 [ _] 

SP [21 3} [Stiskni vyznačenou klávesu !] 

END 

TO VOLBA 

MAKE "z RC 

IF :z = "Z [ZAPIŠ] 

IP :z = "E [EXPERT] 

IF :z = "V [VYPIŠ] 

IF :z = "K [KOREC] 

IF :z = "0 [NADISK] 

IF :z = "N [ZDISKU] 

IF :z = "M [MAZE1 

IF :z = T [TISKNE] 

IF :z = "D [DISKETA] 

END 

TO EXPERT 
CT 

IF NOT NAMEP 'jména [MAKE 'jména []] 

IF NOT NAMEP "1 [CHYBA] [MAKE "jm 1 STA :jm] 
END 

TO ZAPIŠ 

CT PR [ZAPIŠ BÁZI ZNALOSTI VE TVARU :] 

RP [1 0] 36 [_] m [] 

PR [Kod odstavce] 

PR [Název odstavce] 

PR [[TEXT ODKAZU 1] ODKAZ 1] 

PR [[TEXT ODKAZU 2] ODKAZ 2] 

PR [a t d dalsi odkazy] 

PR [ESTER] 

RP [8 0] 36 [J 
RP [22 0] 36 [J 

SP [23 2] [ZAPIŠ UKONČI DVOJÍM STISKEM ENTER] 
IF NOT NAMEP "jména [MAKE "jména []] 

SETCURSOR [9 1] 

IF ZZ [] [STOP] 

ZAPIŠ 

END 

TO VYPIŠ 

IF NOT NAMEP 'jména [MAKE "jména []] 

VYPS : jména 
END 

TO NADISK 

CT SP [8 2] [ZAPIŠ JMÉNO BAZE ZNALOSTI] 
SETCURSOR [10 2] TYPE [NA DISKETE ! -] 

MAKE "soubor RW 
IF EMPTYP : soubor [STOP] 

MAKE "soubor HORD : soubor ".DAT 
IF FILEP : soubor [SP [12 2] [BAZE NA DISKETE 
EXISTUJE PŘEMAŽ Ano / Ne] 

IF RC = "A [ERASEFILE : soubor] [STOP]] 
SP [14 2] [PROBÍHÁ ZAPIŠ NA DISKETU !] 

OTE : soubor : jména 
END 


TO ZDISKU 

CT SP [8 2] [ZAPIŠ JMÉNO BAZE ZNALOSTI] 
SETCURSOR [10 2] TYPE [NA DISKETE ! -] 

MAKE "soubor RH 
IF EMPTYP : soubor [STOP] 

MAKE "soubor HORD : soubor ".dat 
IF NOT FILEP : soubor [SETCURSOR [12 2] 

(TYPE [BAZE -] : soubor [- NEEXISTUJE !]) 
HAIT 30 STOP] 

SP [14 2] [PROBÍHÁ CTĚNI DAT Z DISKETY !] 


RED : soubor 
END 

TO MAZE 

CT SP [8 5] [POZOR ! CHCEŠ OPRAVDU VYMAZAT 1 
SP [10 5] [VŠECHNA DATA ZNALOSTI ? Ano / Ne] 
IF RC = "A [MAZ] 

END 

TO TISKNE 

CT SP [8 2] [ZAPNI A PRIPRAV TISKÁRNU !] 

SP [10 2] [PO TE STISKNI NĚKTEROU KLÁVESU !] 
DRIBHLE "LPT1 
MAKE ":z RC 

SP [14 2] [PROBÍHÁ TISK BAZE ZNALOSTI !] 

OUT : jména 

NODRIBBLE 

END 

TO DISKETA 

CT SP [2 2] [VYPIŠ SOUBORU Z DISKETY] 
SETCURSOR [4 0] 

DIR 

SP [24 2] [UKONČI STISKEM NEKTERE KLÁVESY !] 

MAKE :z RC 

END 

TO STA : jl 

IF EQUALP : jm "KONEC [STOP] 

MAKE "jm VYBER :jm 

STA :jm 

END 

TO VYBER :p 

MAKE "pr THING :p 

CT PR [] ODSTAVEC CURSOR FIRST :pr 

PIS 1 BF :pr 

PR[]PR[] 

REPEAT : sirka [TYPE "-] PR [] 

TYPE [Zapiš cislo zvoleného odstavce !] 

MAKE "Z RC 

IF :z = CHAR 27 [OP 1] 

IF OR NOT NUMBERP :z :z = 0 [MAKE "z 1] 

OP LAST ITM (1 + : z) :pr 
END i 

TO PIS :i :pr 
IF EMPTYP BF :pr [STOP] 

PR [] PR [] 

(TYPE "( :i ") "-) 

ODSTAVEC CURSOR FIRST FIRST :pr 

PIS :i + 1 BF :pr 

END 

TO CHYBA 

SP [2 10] [ZNALOSTNÍ BAZE NENÍ UPLNA !] 

HAIT 100 
END 


TO ZZ :kod 
MAKE "jm RL 

IF EQUALP : jm :kod [OP "TRUE] 

MAKE "jm FIRST :jffl 
MAKE : jm [ ] 

MAKE "s [] 

MAKE "jména FPUT :jm :jmena 
VSTUP 

REPEAT COUNT :s [MAKE :jm FPUT FIRST :s 
THING :jm MAKE "s BF :s] 

OP "FALŠE 
END 


TO VSTUP 

MAKE "ss RL 

MAKE "s FPUT :ss :s 

IF NOT EMPTYP :ss [VSTUP] 

END 

TO VYPS :jm 

CT SETCURSOR [2 1] TISK 


SP [21 2] [Pokračuj stiskem mezemikn !] 
SP [22 2] [Ukonči stiskem ESC] 

SP [23 2] [Vymaž stiskem Ctrl C] 

MAKE "z RC 

IF :z * CHAR 3 [VYMAŽ] 

IF :z = (BAR 27 [STOP] 

IF EMPTYP :jm [STOP] 

VYPS ROT 1 : jm 
END 

TO TISK 

IF EMPTYP : jm [PR [CHYBÍ DATA ZNALOSTI !] 
STOP] [TISKNI : jm] 

END 

TO TISKNI : jm 
MAKE "prom FIRST :jm 
PR :prom 

MAKE "rad THING FIRST :jm 

RADEK :rad 

END 

TO RADEK :r 
IF EMPTYP :r [STOP] 

PR FIRST :r 
RADEK BF :r 
END 

TO VYMAŽ 
ERN THING "prom 
DEL :prom "jména 
MAKE "jm : jména 
END 

TO DEL :p : js 

MAKE "S THING :js 

MAKE : js VYPUSŤ NAJDI :p :s :s 

END 

TO VYPUSŤ :c ,:s 
MAKE "C :c - 1 

OP ROT :c BF ROT (COUNT :s) - :c :s 
END 

TO ROT :c :s 

REPEAT :c [MAKE »s BL FPOT LAST :s :s] 

OP :s 
END 

TO NAJDI :p :s 

IF NOT MQfflERP :p :s [OP 0] 

OP NAJ 1 :p :s 
END 

TO NAJ :c :p :s 

IF NOT EQUALP :p FIRST :s [MAKE "c NAJ :c 
+ 1 :p BF :s] 

OP :c 
END 


TO OTE :sb :jm 
OPEN :sb 
SETHRITE :sb 
OUT :jm 
SHOW [EOE] 

SHOW [EOE] 
SETHRITE [] 
CLOSE :sb 
END 


TO OUT :j 

IF EMPTYP :j [STOP] 
MAKE "js FIRST :j 
PR :js 

OUTS THING ; js 
OUT BF : j 
END 

TO OUTS :s 
IF EMPTYP :s [STOP] 


m FIRST :s 

CT SP [8 5] [VSECHA DATA ZNALOSTI BYLA 

MAKE "cisrad FIRST CORSOR 

QUTS BF :s 

VYMAZANA !] 

MAKE "ppoz LAST :poz 

DiD 

WAIT 30 

REPEAT COONT : seznam [LINE] 


END 

END 

TO RED :sb 

MAKE "jména [] 

TO ITM :c :s 

TO LINE 

OPEN :sb 

MAKE "cou C00NT :s 

IF K0NRADK0 [SETCORSOR LIST ((FIRST CORSOR) 

SETREAD :sb 

MAKE "cou :cou - 1 

+ 1) :ppoz] 

ZAP 

IF :c > :cou [MAKE "c :cou] 

(TYPE FIRST : seznam CHAR 32) 

CLOSE :sb 

IF :c < 1 [MAKE "C 1] 

MAKE "seznam BF : seznam 

SETREAD [] 

OP ITEM :c :s 

END 

END 

END 


' 

TO RP :c :p :z 

TO KONRADKU 

TO ZAP 

OP (((LAST CORSOR) + (COONT 

IF ZZ [ [ EOE ] ] [STOP] 

SETCORSOR :c REPEAT :p [TYPE :z] 

FIRST :seznam)) > :sirka) 

ZAP 

END 

END 

END 

TO SP :c :t 

TO SAVEC :spec 

TO MAZ 

SETCORSOR :c PR :t 

IF FILEP WORD :spec ".LF [PR [S00B0R EXISTOJE, 

ERNS 

END 

PŘEHŘEJ A / N] IF RC = "A 

MAKE "jména [] MAKE "k "FALŠE 


[ERASEFILE :spec] [STOP]] 

MAKE "z "X 

TO ODSTAVEC :poz : seznam 

SAVÉ :spec 


SETCORSOR :poz 

END 


Výpis 2. Báze znalostí (931 -V2) 


230 

02 jste někdy zkoušel programovat? 

[Jisté, jsem profesionál] 220B 

[Na necem se to přece musim naučit! ] 221 

[Několik jednoduchých programu jsem vypotil] 221 

220B 

Jestli * jste si dostatečné ověřil sve programátorské 
dovednosti, pak si určité vyberet sam, podle svých 
Tínancnich možnosti 

[Pocitac kompatibilní s IBM PC XT. Cela rada výrobců, 
rozsáhle programové vybaveni. Zbyva sehnat software.] 31 

221 

Zkuste se nejdrive seznámit s programováním na levnejsim 
pocitaci v klubech nebo u svých známých, teprve potom se 
rozhodnete! 

[Pokračuj stiskem nektere klávesy] 17 
220AA 

Cela rada domácích 16 bitových pocitacu. Před koupi nutno 
vlastnosti, cenu, možnosti nákupu konzultovat ( literatura, 
kluby ) 

[I pres konzultace si na nakup netroufám] 221 
[Pro zacatek zvolím něco levnejsiho] 210 
[Dekuji, uz jsem si vybral] KONEC 

220A 

Ve svete velký vyber většinou 16 bitových pocitacu. Pro naše 
podmínky nejlepe 
[ATARI ST] 220AA 
[COHHODORE AMIGA] 220AB 

220 

Jestli jste jeste nikdy neprogramoval, doporučuji nizsi 
cenovou kategorii. Jinak zalezi na tom, jak chcete pocitac 
využívat. 

[Amatérsky pro zabavu a poučeni v domácnosti] 220A 
[Profesionálně pro zhotoveni a prodej programového vybaveni] 
220B 

210 

K dále nabízeným pocitacum si muzes přikoupit disketovou 
jednotku. Užitné vlastnosti pocitace se mnohonásobné zvysi! 
[Pokračuj stiskem nektere klávesy] 205 

205A 

Ve svete jeden z nejrozsirenejsich a nejlepsich ve sve 
kategorii. 0 nas dostupný pres inseraty. Halo rozšířeny. 


[Vyber mi vyhovuje] 202 
[Málo informaci] 203 
[Chci jiný pocitac] 204 

205 

Bezny zájem - bezne zbozi 
[COMMODORE 64] 205A 
[Jiné pocitace] 201 

204 

Chcete obětovat do pocitace vice penez? 

[Ano] 210 
[Ne] 201 

203 

Prostudujte si literaturu, nebo se poradte v pocitacovych 
klubech! Vhodné časopisy - ELEKTRONIKA, AMATÉRSKÉ RÁDIO, 
VTM. 

[Pokračujte stiskem nektere klávesy] KONEC 
202 

Mnoho uspechu pri koupi pocitace! Chcete poradit pri volbě 
programového vybaveni? 

[Ano] 10 
[Ne] KONEC 

201D, 

D nas pomeme málo rozsireny. Dostupný na inzerát. Omezene 
programové vybaveni. Dobra grafika a standartni klávesnice. 
[Vyber mi vyhovuje] 202 
[Málo informaci] 293 
[Chci jiný pocitac] 204 

20 1C 

0 nas rozsireny pocitac ( TOZEX, maloobchod, inserce ) 
[Vyber mi vyhovuje] 202 
[Málo informaci] 203 
[Chci jiný pocitac] 204 

201B 

0 nas nejrozsirenejsi pocitac. Nevyrábí se. Nestandartni 
klávesnice, bohaté programové vybaveni. Dostupný na 
inseraty. 

[Vyber vyhovyje] 202 
[Málo informaci] 203 
[Chci jiný pocitac] 204 

201A 

Tuzemsky výrobek, bezne dosažitelný v obchodech. Temer 
ekvivalent SINCLAIR SPECTRUM. Rozsáhle programové vybaveni. 
(Jsem spokojeny s vyberem] 202 
[Málo informaci] 203 
[Chci jiný pocitac] 204 


201 

Nejcastejsi pripad, ale za málo penez málo muziky! 

[DIDAKTIK GAMA] 201A 
[SINCLAIR SPECTRUM] 201B 
[ATARI 800 XL / 130 XE] 201C 
[SHARP MZ - 800] 201D 

200 

Nesnadná odpoved! Kolik chceš investovat penez? 

[Co nejmene] 201 
[Do 10 tis.Kcs nebo 250 DM] 205 
[Do 25 tis.Kcs NEBO 500 DM] 210 
[Do 90 tis.Kcs nebo 1000 DM] 220 
[Nezalezi na penezich] 230 

30 

Nevzdávejte se tak brzy! I v jiných jazycich musite umet 
formulovat ulohu, přemyšleni a dřina Vas stejne nemine! 
[Raději uz toho nechám] 19 
[Jeste to zkusim] 52 

52 

Správný zacatek Vaši programátorské kariéry, ted jde o to 
jak jste si pri tom vedl! 

[Pokračuj stiskem nektere klávesy] 17B 

17B 

S jakými výsledky jsi uspěl v programováni? 

[Dokáži zapsat jednoduché programy, mam zájem o programováni 
v jiném jazyce] 30 

[Samostatné napisi a odladim i složité programy vyuzivajici 
zápisu a výpisu dat na disketu ( kazetu )] 31 
[Pres všechnu snahu mi děla potize sestaveni i jednoduchých 
programu] 19 

17A 

LOGO je rozsirene na vetsine typech pocitacu. Obrat se na 
_ pocitacovy klub, stanice mladých techniku a pod. zarizeni! 
[Pokračuj stiskem nektere klávesy! ] 17 

17 

Pro vstup do světa programováni doporučuji jazyk LOGO. Je 
moderni a vytvorite si dobry zaklad pro výuku dalsich 
jazyku. 

[Nemohu LOGO na svůj pocitac sehnat] 17A 
[Seznámil jsem se s jazykem LOGO] 17B 

51 

Nedostal jste se sice daleko, ale jste na správné ceste 
[Pokračuj stiskem nektere klávesy! ] 17 

50 

Nezvolil jste dobry vstup do života programátora! Raději 
skuste rychle jeste něco jiného! 

[Pokračuj stiskem nektere klávesy] 17 , 

20 

Chcete mou radu, pak nejste s programovanim pri lis daleko. 

V jakém jazyku jste prevazne programoval? 

[BASIC] 50 
[KAREL] 51 
[LOGO] 52 

[Jedním, nebo vice z PASCAL, PROLOG, C,LISP, ASSEMBLER, COBOL] 

31 

[V zadnem a nebo ve všech, ale ne moc uspesne] 17 
44 

Kromě specializovaných prostředku jazyky PROLOG, LISP, 

MAMPS, C 

[Ukonči stiskem nektere klávesy] KONEC 

43 

Cela rada specialnich programových prostředku na pr. 

ADTOCAD, CHART, DrHALLO,ORDC AD a jiné. Doplnit jazyky C, LISP, 
pr. PASCAL. 

[Ukonči stiskem nektere klávesy! ] KONEC 


42 

Integrovaný software na pr. dBASE ,FRAMEWORK , SUPERCALC 
a jiné. Z jazyku pak C - jazyk, PASCAL 
[Ukonči stiskem nektere klávesy!] KONEC 

41 

Existuje bohata nabidka specielniho vybaveni na 
pr.STATGRAPHICS, EUREKA a dalsi. Jinak jazyky FORTRAN, 

PASCAL, BASIC 

[Ukonči stiskem nektre klávesy!] KONEC 
40 

Drive bych doporučil ASSEMBLER. Ten je vsak závislý na typu 
pocitace. Nyni jednoznačné doporučuji C - jazyk ! 

[Ukonči stiskem nektere klávesy!] KONEC 

31 

Mate talent pro programováni! Dále zalezi na oboru, ve 

kterem tento talent chcete uplatnit 

[Rizeni strojů, robotu, technologii] 40 

[Vedecko technické vypocty, matematika] 41 

[Ekonomické vypocty, administrativa) 42 

[Projektováni, pocitacova grafika] 43 

[Tvorba zakladniho programového vybaveni] 40 

[Expertní systémy, znalostni systémy, uměla inteligence] 44 

19 

Programátor z Vas nebude, ted uz nemůžete nic pokazit, 
zkuste jazyk BASIC, mozna ze Vas uspokojil 
[Ukonči stiskem nektere klávesy) KONEC 

21 

Pokuste se sehnat programovací jazyk LOGO, ale nenechte se 
na zacatku odradit neuspechem! Vytrvejte! 

[Ukonči stiskem nektere klávesy] KONEC 

18 

Zkuste nejdrive programovací jazyk KAREL 
[Programovaní se Vam dařilo a bavi Vas?] 17 
[Hra s robotem me nezaujala, ale programovat bych chtěl 
v jiném jazyce] 21 

[Robot me nechce poslouchat, jeho složité jsi činnost nedokáži 
formulovat] 19 

[Nesehnal jsem program KAREL na muj pocitac] 21 
1 

Mate problém s vyberem pocitace a programového vybaveni? 
Expertik Vam pomůže! Štaci odpovídat na jeho dotazy a poradí 
Vam! 

[Chci využit služeb expertika pro vyber programového 
vybaveni] 10 

[Chci si poridt svůj prvni pocitac] 200 
[Nemam zájem o pomoc expertika] KONEC 

10 

Vyber zavisi na Vašich zájmech, dosavadních znalostech 
a typu pocitace. 

[Nevim jeste, jaký pocitac si poridim] 200 
[Pocitac jsem si uz vybral, nemam zadně zkušenosti 
s obsluhou a programovanim] 15 
[Mam pocitac a znám zaklady programovaní, chci se 
programovaní systematicky věnovat] 20 

15 

Musite se rozhodnout k jakým ucelum chcete Vas pocitac 
prevazne využívat. 

[Hry a nebo hotové, jednoucelove programy] 16 
[Mam zájem se naučit programovat] 17 
[Jeste nevim, chci se rozhodnot později] 18 

16 

Hotové programy a hry Vam nabídnou počítačové kluby, stanice 
mladých techniku, domy mládeže a podobné. 

[0 jiné programy uz nemam zájem, nebo az později] KONEC 
[Přece jenom bych si rad zkusil něco sam naprogramovat] 18 

[EOE] 

[EOE] 
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Možnost připojení tiskárny je jednou ze základních podmínek pro skutečně efektivní využití mikropočítačů 
všech typů. U nás stále rozšířenější osmibitové domácí mikropočítače ATARI umožňují připojení různých 
periferních zařízení (disketová jednotka, tiskárna, datový magnetofon), přes sériový port. Tento port však 
bohužel neodpovídá žádnému běžnému standardu a tak lze bez problémů připojit pouze periférie dodávané 
přímo firmou nebo vybavené příslušným interfejsem (z tiskáren např. ATARI 1027 nebo 1029, SEIKOŠHA 
GP5O0AT). (Zapojení bylo vyvinuto a zasláno redakci v roce 1987 - pozn. red.) 


Běžnou tiskárnu vybavenou např. rozhra- 
ním Centronics lze v zásadě připojit dvěma 
způsoby: 

1. Využít paralelní port počítače používaný 
jinak pro připojení ovladačů (joysticků), ob- 
sluhovaný v počítači obvodem PIA 6520, což 
znamená napsat příslušný obslužný pro- 
gram pro počítač. Nevýhodou tohoto řešení 
je, že není podporováno žádným z běžného 
programového vybavení. 

2. Zkonstruovat interfejs, který se připojí 
mezi sériový port a tiskárnu. Toto řešení je 
sice náročnější, zato však daleko pružnější 
a zachovává všechny výhody počítače včet- 
ně podpory operačního systému, BASICu 
a veškerého softwaru (např. textových edito- 
rů). 

Druhé řešení je obsahem následujícího 
příspěvku. 

Princip komunikace počítače 
s periferními zařízeními 

Veškeré periférie se k počítači připojují 
přes třináctipólový konektor, umístěný na 
zadní straně počítače. Popis konektoru je na 
obr. 1. Pro připojení interfejsu se využívají 
pouze vývody č. 3, 4, 5, 7, 10. Periférie 
(s výjimkou magnetofonu) jsou vybaveny 
vlastní „inteligencí" a jsou připojeny přes 
budiče s otevřenými kolektory, takže může 
být paralelně připojeno více zařízení najed- 
nou, aniž by se vzájemně ovlivňovala. Přes- 
to jsou standardní periférie vybavovány dvě- 
ma konektory podle obr. 1 propojenými pa- 
ralelně. 

Všechny napěťové úrovně jsou TTL, logi- 
ka je pozitivní. 

Komunikace je sériová asynchronní, 
značky jsou osmibitové s jedním START 
bitem (log.O) a jedním STOP bitem (log. 1 ). 
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Obr. 1. Konektor počítačů Atari pro sériový 
styk s perifériemi (901 -1 ) . Popis vývodů: 

1 CLOCK IN nepoužívá se 

2 CLOCK OUT nepoužívá se 

3 DATA IN sériová vstupní 

datová linka 


4 GND zem 

5 DATA OUT sériová výstupní 

datová linka 


6 GND zem 

7 CMDn označení povelu 

8 MOTOR CONTROL řízení motoru dat. 


9' PROCEED 

10 + 5 V 

11 AUDIO IN 

12 NC 

13 INTERRUPT 


magnetofonu 
nepoužívá se 
napájecí napětí 
vstup akustického signálu 
nepoužívá se 
nepoužívá se 


Rychlost je 19 200 Bd, používá se standard- 
ní soubor znaků ASCII, přičemž znaky zo- 
brazované na stínítku inverzně mají nasta- 
vený nejvyšší bit do log . 1 . V klidu je na 
kontaktech (samozřejmě s výjimkou GND) 
úroveň log. 1 . 

Jak již bylo řečeno, komunikace je „inteli- 
gentní". V praxi to vypadá např. po příkazu 
LIST „P:“ následovně: 

1 . Počítač oznámí všem připojeným perifer- 
ním zařízením logickou úrovní 0 na vývodu 
CMD, že vydává blok povelu. Zároveň vyšle 
pět povelových bajtů na vývod DATA OUT. 
Složení povelového bloku je: jeden bajt oz- 
načení periférie (40H pro tiskárnu, ,,P:“), 
jeden bajt označení povelu (53H je žádost 
o status), dva bajty dodatečné informace 
(pro tiskárnu dvakrát 0), jeden bajt zabezpe- 
čení (součet všech čtyř předešlých bajtů 
s uvážením přenosu např. instrukcí ADC 
většiny mikroprocesorů). 

2. Po skončení signálu CMD odpoví oslove- 
ná periférie přes vývod DATA IN podle druhu 
povelu. Odpověď na žádost o status je 
sedmibajtová. 

3. Počítač vydá další povelový blok, opět 
zároveň se signálem CMD. Tento blok je 
stejný jako v bodě 1 , pquze je jiné označení 
povelu (57H pro zápis dat na periferní zaří- 
zení s kontrolním součtem). 

4. Oslovená periférie opět odpoví, tentokrát 
jen jedním bajtem (41 H jako kladné potvrze- 
ní povelu). 

5. Počítač vydá jeden blok dat, standardně 
dlouhý 40 datových bajtů plus jeden bajt 
zabezpečení (stejné jako u povelového blo- 
ku). 


6. Periférie odpoví jedním bajtem (41 H jako 
kladné potvrzení), zpracuje přijatá data a oz- 
námí počítači, že komunikace může pokra- 
čovat (bajtem 43H). 

7. Není-li komunikace ukončena, pokračuje 
počítač bodem 3. 

V průběhu komunikace může samozřejmé 
dojít k poruše; pokud počítač nedostane 
včas odpověď na svůj povel, opakuje ho 
(standardně celkem 13x), pokud ani jednou 
přitom nedostane odpověď, vyhlásí chybu 
č. 138 (TIME OUT). Stejně je tomu v přípa- 
dě, že počítač nedostane kladné potvrzení 
o přijetí dat. 


Realizace a stavba zařízení 

Z uvedeného popisu způsobu komunika- 
ce počítače s perifériemi vyplývá, že realiza- 
ce interfejsu je možná prakticky jen při použi- 
tí mikroprocesoru, který je řízen programem 
zajišťujícím všechny potřebné funkce a který 
zároveň umožňuje interfejs přizpůsobit prak- 
ticky libovolné tiskárně. Jakékoli čistě hard- 
warové řešení by vyšlo neúměrně složité 
a nákladné. Jako prakticky ideální řešení se 
nabízí použití některého jednočipového mik- 
ropočítače z řady 48, který ke své funkci 
potřebuje minimum dalších součástek a je 
relativně dostupný i v ČSSR. Principiální 
schéma interfejsu je na obr. 2. Pokud použi- 
jeme mikropočítač 8048 nebo 8035, je třeba 
připojit obě vnější paměti (RAM i EPROM). 
Výhodnější je použít mikropočítač 8747 se 
zabudovanou vnitřní pamětí EPROM, po- 



Obr. 2. Blokové schéma zapojení. interfejsu (901-2). 
Propojka S1 je pro typ 8748 v poloze 1 - 3 , pro ostatní typy v poloze 1 - 2 . 











tom odpadá vnější programovatelná paměť, 
avšak tento obvod je hůře dostupný a pro 
většinu amatérů je velmi obtížné zajistit na- 
programování vnitřní paměti. Výhodné je 
i použití mikropočítače 8039, který má pos- 
tačující kapacitu vnitřní RAM, s dostupností 
tohoto obvodu je to však ještě horší (k. p. 
Tesla zatím dodává typy 8048, 8035 
a 8748). 

Na místě vnější RAM je možné použít 
libovolnou paměť RAM s kapacitou alespoň 
64 bajtů, vyhoví např. dva tuzemské obvody 
MHB21 14 s organizací 1kx4 bity, ze zahra- 
ničních typů např. 6116 (s kapacitou 2 kB) 
apod. Latch je osmibitový paralelní střádač, 
např. MHB8282, SN74373, apod. EPROM je 
libovolná s kapacitou alespoň 1 kB - např. 
MHB8708C, výhodnější z hlediska zachová- 
ní jediného napájecího napětí je však typ 
2716, resp. sovětský ekvivalent K573RF5. 

Jedna z možností konkrétní realizace je 
na obr. 3. Jsou zde použity obvody, o kte- 
rých se domnívám, že by měly být nejsnáze 
dostupné. Jak však bylo řečeno, možností je 
mnoho a záleží na možnostech a na štěstí 
každého zájemce o stavbu interfejsu, které 
konkrétní obvody se mu ppdaří sehnat. Z to- 
hoto důvodu rovněž neuvádím výkres desky 
s plošnými spoji; navíc se domnívám, že pro 
stavbu jednoho kusu je nejvýhodnější využít 
některou univerzální zapojovací desku 
a drátové propojení. Výhodné je však použít 
sokly pro mikroprocesor a samozřejmě pro 
EPROM. 

Kritickým místem celé konstrukce je zřej- 
mě krystal. Díky velmi vysoké přenosové 
rychlosti bylo nutno časování odvodit přímo 
z doby trvání instrukčního cyklu, která je pro 
krystal 6 MHz 2,5 ^s. Odpovídající kmitočet 
je pro základní varianty mikropočítačů řady 
48 nejvyšší dovolený, pro vyšší kmitočty by 



Obr. 4. Náhrada krystalu 6 MHz (901-3) 



Obr. 5. Jednoduchý převodník TTUV.28 
(901-5) 

navíc bylo třeba modifikovat řídící program. 
Pří nižším kmitočtu by již mikroprocesor ne- 
stihl obsloužit příjem dat z počítače. 

Výrobce dovoluje namísto krystalu zapojit 
i obvod podle obr. 4. Při přesném vyladění 
kmitočtu na 6 MHz by neměla být funkce 
interfejsu narušena. Problémy by však moh- 
ly nastat s časovou a teplotní stabilitou. Toto 
řešení nebylo experimentálně ověřeno. 

Pro ty, kdo chtějí interfejs využít jako pře- 
vodník na sériové rozhraní s napěťovou 
úrovní podle doporučení CCITT V.28 (RS 
232C), je nutné ještě zapojení vybavit pře- 
vodníkem TTL/V.28, např. podle obr. 5. Jiná 
řešení převodníku lze najít v 1 3 1. Přitom je 


nutno zapojení ještě doplnit o záporné napá- 
jecí napětí (lze je získat např. z tiskárny). 
Optimální by samozřejmé bylo napájení 
+ 1 2 V, protože však doporučení V.28 defi- 
nuje jako zakázanou oblast -3V až + 3V, lze 
bez problémů použít napájení 5V. 

Interfejs lze napájet přímo z počítače na- 
pětím ,+ 5 V (výrobce udává proudovou „re- 
zervu" zdroje větší než 0,5 A), díky odděle- 
nému napájecímu zdroji nehrozí poškození 
počítače ani při náhodném zkratu. 

Protože originální třináctipólový konektor 
je téměř nesehnatelný (nejen u nás), je 
nutné tento konektor nahradit. Jako kontakty 
vyhoví např. dutinky z rozebraného konekto- 
ru CANON DB 25 (standard pro rozhraní 
V. 24) vlepené do destičky z organického 
skla s předvrtanými otvory v, rastru 3,5 mm. 
Ještě lepší je však zabudovat do počítače 
např. pětikolíkový nf konektor (DIN), paralel- 
ně uvnitř počítače propojený na příslušné 
špičky třináctipólového konektoru. Terrto ko- 
nektor pak lze používat i pro připojení upra- 
veného magnetofonu atd. Na straně tiskárny 
použijeme konektor podle typu tiskárny. 


Řídicí program 

Obsah EPROM s řídicím programem pro 
jednočipový mikropočítač je ve Výpisu 1 (od 
adres nutno odečíst offset 8000H), obsah 
upraveného programu pro mikroprocesor 
8039 (zapojení bez vnější RAM), je ve Výpi- 
su 2. 

•Každý bajt z počítače je přijat rutinou pro 
zpracování interruptu - je na adresách OAH 
až 40H. Po přijetí povelového bloku mikro- 
procesor zjistí, zda je oslovena tiskárna a po- _ ** 
kud ano, vyšle na počítače příslušnou odpo- j 









věď přes vývod P26 a vyčká na datový blok. 
Ten je ukládán do RAM, poté se zjistí případ- 
ný výskyt řídicích posloupností pro interfejs 
(viz dále) a nakonec je blok přenesen bajt po 
bajtu na port Pí, který tvoří rozhraní CEN- 
TRONICS (porty 8048 jsou zakončeny budi- 
či s otevřeným kolektorem a střádačem, což 
je pro tento účel výhodné). Vývod P24 mikro- 
procesoru se využívá pro vysílání potvrzova- 
cích impulsů STB, vývod TO pro příjem 
signálu BUSY z rozhraní. Tyto dva signály 
spolu s osmi datovými budiči tvoří základní 
a postačující obvody rozhraní CENTRO- 
NICS. Je-li naprogramováno sériové vysílá- 
ní, jsou bajty sériově vysílány přes vývod 
P25 zadanou přenosovou rychlostí. Po vy- 
slání celého bloku interfejs oznámí počítači 
možnost pokračovat vysláním bajtu 43H na 
vývod P26. Je-li uvnitř přijatého bloku nale- 
zen znak EOL, tj. 9BH, je nahrazen kombina- 
cTCR + LF (0DH + 0AH). EOL je totiž označe- 
ní konce logického řádku používané počítači 
ATARI. Protože počítač doplní blok obsahu- 


jící EOL samými nulami až do 40 bajtů, jsou 
tyto nevýznamné nuly interfejsem ignorová- 
ny. 

Máme-li k dispozici maticovou tiskárnu, 
která má sedm až devět jehliček a která 
využívá posloupnost <ESC>K k přeřazení do 
grafického režimu (např. tiskárny EPSON 
a kompatibliní, novější maticové tiskárny 
ROBOTRON atd . ) , můžeme využít další 
funkce interfejsu. Při příjmu znaků s ASCII 
kódem 0 až 19H (0 až 31 dekadicky) umož- 
ňuje interfejs buď transparentní přenos těch- 
to znaků (např. ASCII znak 14H=CTRL-Nse 
používá pro tisk jednoho řádku zvětšenými 
písmeny), nebo přepne tiskárnu do grafické- 
ho režimu a vytiskne přibližně stejný znak, 
jaký je zobrazen na stínítku (ATARI pseudo- 
grafika). Každý znak je reprezentován šesti 
bajty -tzn. že je tisknou v matici 6x8, stejně 
jako alfanumerické znaky u tiskáren EP- 
SON, na rozdíl od matice 8x8 na stínítku. 
Kódy pro grafické znaky jsou uloženy ve třetí 
stránce EPROM tak, že na adresách 300H 


až 305H je šest bajtů pro znak s kódem 1 H 
atd. Tuto tabulku lze samozřejmě při pro- 
gramování EPROM předefinovat a vytvořit 
tak vlastní znaky, např. českou abecedu 
s háčky a čárkami. Spolu s možností vytvo- 
ření uživatelské znakové sady, kterou po- 
skytuje počítač ATARI, máme tak účinný 
prostředek např. pro vytvoření vlastního tex- 
tového editoru s českou abecedou a s mož- 
ností tisku. 

Přitom v grafickém režimu je možno pře- 
depsat, že se znak ESCAPE (kód 1BH) 
tiskne jako grafický znak nebo se interpretu- 
je jako řídicí znak, což umožňuje používat 
řídicí posloupnosti pro tiskárnu (např. k pře- 
pínání druhů písma). V transparentním reži- 
mu je naopak možno předepsat, že interfejs 
všechny znaky s ASCII kódem 0 až 19H 
nahradí znakem ~ (kód 7EH), pokud je 
transparentní přenos npžádoucí. 

Pro řízení interfejsu se využívá některých 
posloupností se znakem ESCAPE, které ne- 
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Výpis 2. Obsah ROM pro mikroprocesor 8039 (901-V2) 


_ _ Výpis 1. Obsah ROM pro mikroprocesory 8035, 8048, 8748 
54 (901 -VI) 


jsou běžnými tiskárnami využívány. Jejich Tab. 1. Přehled řídících 
přehled spolu s významem je v tabulce 1 . posloupností pro inter- 
Po zapnutí je interfejs inicializován tak, že fejs (901 -TI) 
je transparentní pro všechny znaky a výstup 
je na port TI, tj. rozhraní CENTRONICS. 

Chceme-li, aby výstup z interfejsu byl sério- 
vý rychlostí např. 50 Bd, aby znaky s kódem 
menším než 20H byly tisknuty v grafickém 
režimu včetně znaku ESCAPE, a inverzní 
alfanumerické znaky mají být tisknuty jako 
normální (nejvyšší bit nastaven do 0), zadá- 
me jako první příkaz po zapnutí počítače: 

LPRINT „<ESC>r“; CHRS (1); 

„<ESC>j<ESC>d<ESC>g“ 

Chceme-li, aby interfejs pracoval v režimu 
CENTRONICS, přičemž znaky s kódem niž- 
ším než 20H mají být nahrazeny vlnovkou 
a interfejs má v tomto režimu trvale zůstat, 
zadáme po zapnutí: 

LPRINT „<ESC>r“; CHRS (0); 

„<ESC>n<ESC>c<ESC>z“ 

Konečně chceme-li, aby interfejs pracoval 
v režimu CENTRONICS, přičemž znaky 
s kódem nižším než 20H mají být interpreto- 
vány jako grafické a zároveň chceme mít 
možnost používat řídicí posloupnosti pro tis- 
kárnu, tzn. že ESCAPE nesmí být interpreto- 
ván jako grafický znak, zadáme: 

LPRINT ,,<ESC>r“; CHRS (0); 

„<ESC>n<ESC>g“ 

Podobných příkladů lze samozřejmé vymys- 
let mnohem více. 

Pozn.: znak <ESC> (ESCAPE) dostaneme, 
stiskneme-li na počítači 2x za sebou kláve- 
su ESC. 


Ing. Milan Kuchař, 739 44 Brušperk 932 

V AR A8/87 byl uveřejněn popis interfejsu k magnetofonu pro ATARI 
800XL, který byl téměř přesnou kopií zapojení speciálního firemního 
magnetofonu XC12. Vzhledem k napájecímu napětí 5 V zde není možné 
bez problémů použít jakékoliv běžné dostupné operační zesilovače. 
Např. typy 741 , 748, 1458 mají nejnižší úroveň na výstupu v nesymetric- 
kém zapojení asi 2 V, což je pro dané zapojení nevyhovující. Z tuzem- 
ských OZ je proto vhodné použít např. typy MAB355,6,7 nebo 
MÁCI 55,6,7. Dále je zapojení poměrně citlivé na výběr součástek 
v pásmových propustích. Proto jsem vyvinul zapojení interfejsu pracu- 
jící na jiném principu - s fázovým závěsem. 


Závěrem bych chtěl poznamenat, že po- 
kud je mi známo, nebyl dosud nikde zveřej- 
něn podrobný popis komunikace počítačů 
ATARI s perifériemi. Zde zveřejněný popis je 
výsledkem experimentální práce, analýzy 
přenosu pomocí datového analyzátoru a si- 
mulátoru a disassemblování příslušných ru- 
tin operačního systému. Proto nejsou prav- 
děpodobně ošetřeny úplně všechny možné 
situace, které se při přenosu mohou teoretic- 
ky vyskytnout a které nebylo možno nasimu- 
lovat. Ze stejného důvodu jsou interfejsem 
ignorovány zabezpečovací součtové bajty. 
Pro toto řešení však mluví praxe: Za zhruba 
půl roku provozu interfejsu nebyla zaregis- 
trována ani jedna chyba při přenosu i při 
vysoké přenosové rychlosti, která je počítači 
ATARI používána. 



Řídicí 

posloupnost 

Hexa- 

decimálně 

Uastaveni interfejsu 

<ESC>r CTRL -. 

1BH , 72H , 00H 

. 

paralelní výstup z interfejsu 
(CENTRONICS) 

<ESC>r CTRL -A 

1BH,72H,01H 

sériový výstup z interfejsu 50 Bd 

<ESC>r CTRL -B 

1BH,72H,02H 

■ 100 Bd 

<ESC>r CTRL -C 

1BH,72H,03H 

* 200 Bd 

<ESC>r CTRL -D 

1BH,72H,04H 

" 300 Bd 

<ESC>r CTRL -E 

1BH,72H,05H 

" 600 Bd 

<ESC>r CTRL -F 

1BH, 72H,06H 

■ 1200 Bd 

<ESC> j 

1BH, 6AH 

nastavení nejvyššího bitu přenáše- 
ných znaků do log. 0 

<ESC>i 

1BH , 69H 

transparentní přenos nejvyššího 
bitu 

<ESC>d<ESC>c 

1BH"64H 

1BH, 63H 

transparentní přenos všech znaků 

<ESC>d<ESC>g 

1BH , 64H 

1BH , 67H 

všechny znaky s kódem nižším než 

20H interpretovány jako grafické 
včetné<ESO 

<ESC>n<ESC>c 

1BH,6EH 

1BH, 63H 

všechny znaky s kódem nižším než 

20H nahrazovány vlnovkou (ASCII 
kód 7EH) 

<ESC>n<ESC>g 

1BH,6EH 

1BH, 67H 

všechny znaky s kódem nižším než 

20H interpretovány jako grafické, 
<ESC> přenášen transparentně 

<ESC>z 

1BH,7AH 

zákaz interpretace řídicích pos- 
loupnosti z této tabulky, používá 
se při výpisu paměti apod., aby 
nemohlo dojít k nežádoucímu pře- 
pnutí režimu interfejsu náhodným 
příjmem posloupností znaků stejné 
jako některá řídicí posloupnost 


Literatura 

[ 1 j Eichler, Grohmann: ATARI INTERN, 
DATA BECKER 1984. 

[ 2 ] Intel Component Data Catalog, Intel 
Corporation 1981. 

1 3] Hyan, J., T.\ RS 232C - V. 24 Afc A10/ 
84. 


Seznam součástek 


Mikroprocesor 

RAM 

EPROM 

Lktch 

Hradla 


MHB8048, MHB8035, MHB8748, 

18039 nebo ekvivalenty 

2x MHB21 14, HM61 16 nebo jiná 

statická RAM 

MHB8708C, 12716, 

nebo ekvivalenty 

MHB8282, SN74LS373 nebo jiný 

osmibitový paralelní střádač 

MH7400 


Popis zapojení 

Záznam informace na kazety u systému 
ATARI je prováděn tak, že logická ,,1“ je 
zaznamenávána kmitočtem 5135 Hz, logic- 
ká ,,0“ kmitočtem 3995 Hz a data jsou 
vysílána rychlostí 600 Bd v sérii s jedním 
nulovým start-bitem a jedním jedničkovým 
stop-bitem bez parity. Zaváděcí kmitočet je 
5135 Hz - tedy logická ,,1“. Zapojení inter- 
fejsu je na obr. 1 . 101a předzesiluje signál 
z magnetofonu, komparátor 101b převádí 
signál na obdélníky. Z jeho výstupu je signál 
veden přes C3 na vstup fázového kompará- 
toru PLL (14) (obvod 4046 kondenzátorovou 
vazbu povoluje). Výstup fázového kompará- 
toru II (1 3) je veden přes filtr (R9,R1 0,C5,C6) 
na vstup VCO (9) a dále z vnitřního emitoro- 
vého sledovače obvodu 4046 (10) přes dolní 
propust (T14,R15,C7,C8) na TI, který fun- 
guje jako transformátor impedance. Z emito- 
ru TI je signál veden na napěťový kompará- 


tor s hysterezí - T2,T3, na jehož výstupu je 
hotový signál pro počítač. Popis funkce fázo- 
vého závěsu neuvádím, zájemci jej mohou 
najít např. v 1 2 j. 

Signál z počítače do magnetofonu je nut- 
no zeslabit a omezit vyšší harmonické kmi- 
točty - viz obr. 2. Trimrem R24 nastavujeme' 
vstupní napětí pro použitý druh magnetofo- 
nu. 


Postup při oživování 

Při použití ověřených součástek interfejs 
pracuje na první zapojení. Svítivá dioda Dl 
rozsvícením signalizuje logickou ,,0“ a zhas- 
nutím logickou ,,1“. 

Seřízení provedeme tak, že nejdříve do 
interfejsu pustíme z magnetofonu zaváděcí 
signál některého programu (je před každým 
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Obr. 1. Schéma zapojení interíejsu (907-1) 


programem a trvá 20 s) a trimrem R1 2 
otáčíme tak, aby se svítivá dioda Dl právě 
rozsvítila; tuto polohu trimru si označíme. 
Pak pustíme do interíejsu z magnetofonu 
program a trimrem R12 otáčíme na druhou 
stranu, až Dl právě přestane blikat. Poté 
nastavíme R12 doprostřed mezi tyto dvě 
polohy a seřizování je ukončeno. Jestliže se 
nám nepodaří najít tyto dvě polohy trimru 
R12, je nutno změnit odpor rezistoru R11 
nebo kapacitu kondenzátoru C4. 


Poznámky ke konstrukci 

Návrh plošných spojů neuvádím, protože 
zařízení je tak jednoduché a malé, že je 
možno je umístit přímo do magnetofonu. 
Trimr R12 je vhodné umístit přístupně - je 
jím možno korigovat rozdílnost otáček při 
nahrávání programů pořízených na jiném 
magnetofonu. 





R9.R13 

68 kí! 


R23 

Cil 

R11 

22 kí! 

uata o — 

"t. .. - — Ť ^ 

' II — ° vstup mgf 

R19 

1 Mí! 

z počítače 

6k8 [ x 

33n 

R21 

2.7 kí! 


9[R24 

.CIO 

R23 

6,8 kí! 


' LY 680 i 

~33n 

R30 

470 íi 




Potenciometricke . trimry: 




R12 

10 kí! 

Obr. 2. Úprava signálu pro magnetofon 

R24 

680 í! 


(907-2) 

Koddenzátory keramické: 




Cl 

1 nF 




C2.C3.C9 

100 nF 

Seznam součástek 

C4 ' 

3.3 nF 




05 

4,7 nF 




C6 

15 nF 

Rezistory TR 151: 


C7.C8 

10 nF 

R1 

100 kí! 


CIO, Cil 

33 nF 

R2.R4.R5.R16. 





R18.R22 

4,7 kil 


Polovodičové prvky: 

R3.R10 

56 kí! 


101 

MA1458 

R6 

470 kí! 


102 

MHB4046 

R7.R8.R14.R15, 


T1.T2.T3 

KC507 až KC509 

R17.R20 

10 kí! 


Dl 

libovolná svítivá doba 


/ v 

INTERFEJS ATARI 800 - ALFIGRAF 

^ 

Ing. Pavel Rada, Mezihorská 56, 140 OO Praha 4 

Krokové reverzační motory typu SMR 300-100/24, případně SMR 300- 
300/24 umožňují stavbu relativně jednoduchých a přitom spolehlivých 
periferních zařízení k počítačům. Jednou z atraktivních aplikací jsou 
zapisovače, umožňující jak tisk, tak kresbu grafiky. 

Příkladem může být jak tovární konstrukce zapisovače MINIGRAF 
0507, tak zapisovač ALFI sestavený ze stavebnice Merkur podle návrhu 
ing. Dovala. 


Zapojení ínterfejsů k těmto typům zapiso- 
vačů bylo zatím publikováno především pro 
připojení na počítače kompatibilní se ZX 
Spectrum, kde se využívá obvodu MHB 
8255. 

Osmibitové Atari mají již obvod vykonáva- 
jící základní funkce interfejsu zabudovaný 
uvnitř (PIA) a vyvedený na dva ovladačové 
konektory. To umožňuje stavět značně jed- 
nodušší konstrukce. Například pákové ovla- 
dače pro Atari obsahují jen spínací kontakty. 

Programově lze přes ovladačové kontakty 
vyvést i osmibitovou sběrnici, a umožnit tak 
snadné a jednotné připojení periférií k celé 
typové řadě osmibitových Atari. 

Konstrukční řešení navazující na uspořá- 
dání zapisovače ALFI a využívající pro- 
gramového vybavení ing. Jandíka pro Ml- 
NIGRAF bylo nazváno ALFIGRAF. Jeho za- 
pojení je' na obr. 1. 


Soubor programů v systému Turbo 2000 
pro zapisovače typu ALFIGRAF nebo Minig- 
raf, včetně textového editoru, byl sestaven na 
magnetofonovou kazetu typu C60, kde za- 
plňuje téměř celou jednu stranu a obsahuje 
souhrně přes 2x150 kB dat. 

Zápis na dodanou kazetu zajišťuje i nečle- 
nům klubu, proti proplacení složenky (100 
Kčs), S.W. skupina klubu, a lze jej objedná- 
vat zasláním korespondenčního lístku s oz- 
načením SYKO 007/89 na adresu: 

487. ZO SVAZARMU ATARI KLUB PRA- 
HA, pošt. přihrádka 51, 100 00 Praha 10. 

Pro uvedené zapojení je nezbytné použít 
naprogramovanou bipolární paměť PROM 
MH74188. Způsob naprogramování, při kte- 
rém je využita jen malá část kapacity paměti, 
je uveden na obr. 2, kde křížky označují 
logickou hodnotu 1 při zapojení otevřených 
kolektorů přes rezistor 680 12 na plus 5 V. 



Obr. 2. Obrazec plošných spojů 
desky Y505 (906-2) 


Zapojení tohoto typu je odolné proti změ- 
ně napájecích napětí a variabilitě součástek. 
Po montáži proto postačí pečlivá vizuální 
kontrola správnosti zapojení konektorů a ob- 
vodu na desce s plošnými spoji a při oživová- 
ní postačí měřicí přístoj typu Avomet. 

Deska na obr. 3 je jednostranná a plošné 
spoje jsou vytvořeny dělicími čarami. Sou- 
částky jsou pájeny ze strany spojů. Odpadá 
tak vrtání otvorů, zvýší se přehlednost a va- 
riabilnost pro použití různých náhrad za zá- 
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Obr. 3. Rozmístění součástek na desce Y505 a celkové konstrukční uspořádání. Všechny součástky se pájejí ze strany mědi. Vývody PROM 

č. 5, 6, 7 a 9 nezapojujte! Odehněte je do vzduchu! (906-3) 


kladní typy součástek. Velké plochy mědi 
pomáhají odvádět teplo, kterého se uvolňuje 
nejvíce z rezistorů i při klidovém stavu moto- 
rů. 

Rozměrově je deska určena k zabudování 
do ALFIGRAFU, ale při zajištění odvodu 
tepla ze stabilizátoru jiným způsobem než 


přes sloupek na víko kryjící elektroniku lze 
zapojení použít i pro jiná konstrukční řešení. 


Použité součástky 

' R P 

Použité podklady 

s 

pro Usek >17 (14) v použít 

Dl 

D2 


stabilizátor MA7812(7815) 

D3 

Návod ze stavebnic Merkur - ALFI. 

TI 

KC635 h 21E >160 nebo Darlington 

D4 

Návod k obsluze MINIGRAFu a jeho modulu 

T2 

KC635 (KC637. K4639) 

Tr 

Motory 

pro Atari. 

C 

2 iiF/70 V TE006 

Zpravodaje 487. ZO Svazarmu č. 1; 4; 

Cl. 

C3 220 uF/40 V TF0 10 

6/1989. 

C2 

100 tiF/6 V TE 981 



4,7 kli i více podle zesíleni TI 
1 kU (v sérii s Dl může být 
jen 510 í! 

680 ! I i více 
předřadný odpor, použít 
pro U m > 15 V 

33 až 51 12/2 - 4 W volit dle U,r 

LQ1402 žlutá 
LQ1702 zelená 
KA262 nebo KY13 . . . 

KY 132/80 

transformátor min. 20 W 
SMR 300-100 RI/24 (r - rudá. 
f - fialová, b - bílá, m - modrá, 
ž - žlutá) 

















Ing. Ivan Hajda, Jašíkova 15, 821 03 Bratislava Ing. Ján Kačmárik, nám. Lud. milieu 10, 821 09 Bratislava 


Nasledujúce zapojenie spolu s uvedeným programovým vybavením značné zl ahčuje práce vo fotokomoře 
pri čiernobielom pozitívnom procese. Je připojené na mikropočítač ZX-Spectrum cez paralelný interfejs 
s MHB8255 (AR 6/85), plné nahradzuje osvitomer a spínacie hodiny. Na základe nameraného jasu snímky 
vypočítává expozičnú dobu, meria teplotu vyvolávacieho kúpela, resp. prepieracej vody. Všetky operácie 
vrátane spínanía zváčšovacieho prístroja vykonává uživatel’ prostredníctvom klávesnice mikropočítača 
a mikrospínača. Spoluprácu s obslužným programom zlahčujú pomocné údaje na obrazovke, ktorá je kvóli 
zatemneniu přikrytá červenou fóliou. Uživatel’ má možnost’ použit’ vypočítaná dobu expozície, připadne ju 
opravit’ podl’a vlastného uváženia a opakovat’ expozíciu pri opakovanom zváčšovaní tej istej snímky. 


Podstatná časť zapojenia tvoria snímač 
intenzity osvetlenia a výkonový spínač. 

Použitie zariadenia je programovým vyba- 
vením viazané na mikropočítač ZX-Spec- 
trum. Po prepísaní programu je použiteFné 
s rubovoFným mikropočítačom, ktorý je vy- 
bavený paralelným interfejsom. 

Hlavné použité súčiastky: E555, 
WK65061 , 11NR15, MHB4011, impulzný 
transformátor. 


Popis konštrukcie 

Schéma zapojenia je na obr. 1, obrazec 
plošných spojov na obr. 2 a zapojenie ko- 
nektorov k paralelnému interfejsu a sníma- 
čom na obr. 4. 



Obr. 1. Schéma zapojenia (911-1) 


Výkonový spínač pre ovládanie zváčšova- 
cieho prístroja je riadený bitom BO 
MHB8255. Časť merania teploty vývojky 
resp. prepieracej kúpele s 10 E555 je identic- 
ká s prevodníkom (AR 6/88). Startovací im- 
pulz převodu je generovaný mikropočítačom 
cez bit C7 MHB8255, výstupný impulz pre- 
vodníka je připojený na bit AO. Termistor 
1 1NR15 je cez ohybný vodič připojený k bo- 
dom 1,2 zapojenia, aby sa dal umiestniť 
priamo do média, teplotu ktorého meriame. 

Snímač jasu snímky š 101 pracuje na tom 
istom principe s tým, že štartovací impulz 
převodu nedává mikropočítač, ale obsluha 
stlačením mikrospínača připojeného k bo- 
dom 5,6 zapojenia. Samotný fotorezistor WK 
65061 je cez ohybný vodič připojený k bo- 
dom 3,4. Je umiestnený spolu s mikrospína- 
čom na jednoduchom držadle (celok v ďal- 
šom texte nazýváme sondou). Obsluha takto 
móže umiestniť fotoodpor do želaného 
miesta exponovanej snímky (ako pri osvito- 
mere) a mikrospínačom odštartovať převod. 
U oboch snímačov je převod 16-bitový 
s ochranou proti preplneniu počítadla. 


Popis obsluhy 

Ovládanie AES zabezpečuje program 
v jazyku BASIC (Výpis 1) využívajúci spomí- 
nané ' snímače pomocou podprogramu 
v strojovom kóde (Výpis 2). Výkonový spí- 
nač je riadený inštrukciou OUT. 

Po spustení program núka užívateFovi 
5 možností, ktoré sa volia stlačením týchto 
klávesov: 


“t“- expozičný test: tento je třeba vyko- 
nat, ak chce užívateF používat au- 
tomatické určovanie doby expozí- 
cie (zmienime sa o ňom neskór), 

“k“- změna expozičnej konštanty: tuto 
užívateF vykoná ak sa zmenia pod- 
mienky vyvolávania resp. podFa 
svojho uváženia (o tejto možnosti 
sa tiež zmienime neskór). 

“e“- skok do expozičného bloku, ktorý je 

jadrom práce s AES. 

“f“~ meranie teploty vývojky resp. pre- 
pieracieho kúpeFa. Automaticky se 
zmeria a zobrazí příslušná teplota 
s presnosťou na 0,1 °C. 

“c“- podprogram na ciachovanie termi- 
stora. Toto ciachovanie vykonáme 
hned’ pri prvom použití AES, pričom 
namerané konštanty sa uložia na 
pásku za samotný obslužný pro- 
gram. Pri ďalšom používaní už ne- 
třeba teploměr ciachovať, příslušné 
konštanty sa nahrajú z pásky. 

Po vofbe expozičného bloku sa zobrazí 

“menu“ ponúkajúce tieto možnosti: 

“Z“- zadanie požadovanej doby expozí- 
cie v sekundách z klávesnice. 

“B“- meranie bodovým snímačom. Pri 
zvolení tejto činnosti sa předpoklá- 


dá, že v ráme zváčšovacieho prí- 
stroja je připravený negativ snímky. 
Automaticky sa zapne zváčšovací 
přístroj. UžívateF si vyberie FubovoF- 
ný bod snímky a zadá cez klávesni- 
cu aký stupeň sčernania má mať 
pozitiv v tomto mieste. Stupeň sčer- 
nania sa volí podFa stupnice šedi, 
o ktorej sa zmienime neskór. Potom 
položí sondu na zvolené miesto 
a mikrospínačom odstartuje mera- 
nie. Po skončení převodu sa auto- 
maticky vypne zváčšovací přístroj, 
vypočítá a zobrazí sa doba expozí- 
cie. 

“E“- expozícía. Do zváčšovacieho rámu 
sa založí fotocitlivý papier. Po stla- 
čení klávesu “e“ sa zapne zváčšo- 
vací přístroj na dobu, ktorá zodpo- 
vedá naposledy zadanej alebo vy- 
počítanej době expozície. Opátov- 
ným stlačením klávesu možno zo- 
pakovat’ expozíciu toho istého 
snímku niekoFko krát. 

“1/0“- zapnutie a vypnutie zváčšovacieho 
prístroja prostredníctvom klávesni- 
ce. Táto možnost’ volí užívateF pri 
zaostřovaní snímku, hFadaní výře- 
zu, atď. 

Teraz sa vráťme k expozičnému testu. Je 
nevyhnutný, lebo do určovania doby expozí- 
cie třeba zahrnúť aj vlastnosti vývojky ako 
i emulzie používaného fotopapiera. K expo- 
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Obr. 2. Obrazec plošných spojov na doske Y506 (91 1-2) 



zičnému testu je nevyhnutný negativ stupni- 
ce šedi, ktorý sa dá Tahko zhotovit a to 
postupným zakrýváním fotopapiera pod za- 
pnutým zváčšovacím prístrojom. Osvědčila 
sa nám stupnica s 10 prúžkami, pričom 
krajné prúžky sú úplné čierny a biely. Jej 
— ► odfotením získáme požadovaný negativ 
stupnice šedi. Predtým než začneme praco- 
vat s AES, zhotovíme pozitiv tohoto obrazca 
na konkrétnorriítype papiera a vo vývojke, 
ktoré budeme používat. Dobu expozície 
obrazca zadáme ako expozičnú konštantu 
v expozičnom teste. Bez toho, aby sme 
měnili cínové číslo, postupné zmeriame son- 
dou intenzitu všetkých 1 0 prgžkov, tak ako to 
pokyny na obrazovke pri expozičnom teste 
vyžadujú, čím je test ukončený. Ak by napr. 
vplyvom vyčerpania vývojky dochádzalo 
k odchýlkam, netřeba expozičný test opako- 
vat, ale dá sa změnit expozičná konštanta, 
ako sme sa zmienili už skór. Celá činnost’ 
s AES je užívatefovi jasná z pokynov zobra- 
zovaných na obrazovke. 

Ešte k snímačom. Kondenzátor Cl určuje 
rozsah snímača intenzity osvetlenia. Jeho 
přesná kapacita je viazaná na určitý typ 
zváčšovacieho prístroja so svojou svietivos- 
tou, ako i na typ a výrobné odchýlky fotore- 
zistoru. Nelinearitu snímača osvetlenia sme 
aproximovali 5 úsekmi paraboly a nelinearitu 
termistora 10 úsekmi paraboly v rozsahu -5 
až 100 °C. Červená celofánová folia drží na 
obrazovke televízora sama, s využitím jej 
elektrostatického náboja. 

AES sa ukázal byť užitočným pomocní- 
kom šetriacim čas a urahčujúcim prácu vo 
fotokomoře. 


Zoznam 

použitých súčiastok 

101,2 

E555 

103 

MHB4011 

TRK 

KT207/600 

T1.T2 

KC509 

T3 

KFY16 

T4 

KFY46 

RT 

11NR15 

RE 

WK65061 

Cl 

1 11 F (vhodný je tantalový) 

C2 

680 nF (vhodný je tantalový) 


□ 

1 

□ 

2 

tu 

3 

tu tu tu 

4 5 6 

RT 

Re 


*5 V MS MS 


1 - RT 


4 - 4 5 V 


2 - RE 


5 - MS 


3- 


6 -MS 


tu 3 tu 5 tu 

2 4 6 

7 1 — I 9 1 l 77 l 1 
8 10 12 

’ j_ C7 AO 

_L *5 V 

' BO 

1 - A7 

7 - zem 

2 - zem 

8 - 

3- C7 

9- 

4 - 

10 - BO 

5 - AO 

11-4 5 V 

6 - 

12- 


Obr. 4. Zapojenie konektorov (911-4) 


Výpis 1. Ovládací program v BASICu 
(911 -VI) 




C3.C4 

47 nF TK 783 

C5 

68 nF TK 783 

C6 

150 nF TK 782 

C7,C8 

200 uF TE 986 

C9 

10 nF TK 783 

R1 

7,5 k£2 

R2 

12 kí2 

R3 

3,3 k£2 

R4 

22 kQ 

R5 

1,2 kQ véetky 

R6 

11 kti TR 212 

R7 

4,7 kíi 

R8 

8,2 kQ 

R9 

1 k£2 

R10 

270 Í2 

R11 

27 íí 

MS 

mikrospínač (Tesla Jihlava) 

WN 55900 

Tr 

impulzný transformátor 0 0 20 mm, 
feritový hrnček typ 505250/H12, pri- 
mář 20 z 0 0,5 mm, sekundář 50 
z 0 0 0,2 mm. 

K1.K2 

konektory WK46244. WK46206 


REM '.O ing.Ivan HEJDA 
5 Id REM (9 i ng . -Ja n KACMhRIK 
oč© REM řÍilH 8 lEBÍgg«a 
t.dO POKE 23609,80: CLEňR 49999 
*25 LfcT ÍXS0; PAPER 0: INK 7: B 
ORDER O 

630 DUT 127,144; REM Riadiace - 
i.o v o 8255 

§40 DIM (ii (4, 2 1): DIM y (21) 

6 5- 0 P R X NT HŤ 1 5 . 0 : " H U t„ O (n 3 t i Z O V 3 
ny expo z i cny systém" 

6*60 PRI NT hT d0 ,25". 1 'Ki 1986" ' PA 
USE 0 ’ 

670 CL 8 : PRINT hT 16,3; "Je ter 
fi' i s t o r o ciďc h o v a n y ? " ; AT 20 , 23 ; " 
•ď /n " 

680 IF INKEY$ = "ri " THEN CL 8 : Qfi 
TO 700 

690 IF INKEY $ = "3 " THEN CL 8 : PR 
INT AT 16 , 5 " zapni m a qn e t o f o n •• ; 
LOAD "fii" DATA ni $ O : GO TO 700 
695 00 TO 680 
700 REM 


50 FOR a =50000 TO 50054 
730 READ n 
740 POKE a . n 
750 NE XT a ’ 

760 DATA 243,1,0,0,219.31,23.48 
, 25 1 , 3 , 4 , 40 , 3 , 5 , 2 19 '. 3 1 . 23 . 56 . 24F. 
,251,201,1,0,0,251,201: RÉM tep 1 . 

770 DATA 243.1,0,0,62,0,211,95, 
62 , 128 ,211, 95 , 3 , 4 , 40 ,3,5,2 19 ,31, 
31,56,246,251,201, 1.0,0,251,201; 



310 FOR i=l TO 6 

320 READ a í i i , b i i i , C ( i ) 

330 NEXT i 

^840 DATA 1.89836-5, -.027388, 11. 

850 C*AT A 7 . 51S6e -7 , - . 0026034 . 2 . 

860 DAT A 2 . 866356 -3 . - . 08025043 , 
.60945 

870 DATA 9. 6497e-"10 , -.000021732 
, . 13797 

880 C'AT A 3 . 694.Se —11, -2 . 15766 - 6 , 
■ 035394 

390 DATA 3 . 26956 -12 . -7 . F. -7 , 

.019243 

1008 REM im WM iťfiTPl 

1010 CL 5 ; PRINT TAB 12; "M E N U 


1030 PRINT 

1048 PRINT 
icnej doby" 
1050 PRINt 

1052 PRINT 


"T - Expozicny test 
" K - K 0 I" 6 K Ciď 6 X p o z 
"E - Expozicny blok 
" F - M e r a n i e t. e p i. o t 


\ 






iiachovanie te 

THEN GO TG £0 
THEN GO TO 15 
THEN GO TO 17 
THEN GO TO 30 
• THEN GO TO 3 


1054 PRINT ' ' "C - 
rtu i s to ra ” 

1060 PRUSE O 

1070 >BEEP 0.02.12 
1100 IF INKEY *=”e" 

00 

1110 IF IHKEY $ = " t " 

00 

1130 IF INKEY $ = " K " 

00 

1132 IF INKEY $=" f " 

00 

1134 IF INKEY $ = " C 
500 

1140 GO Tu 1060 
1230 PRUS E 0 

1490 REM 

1500 CL 3 : PRINT "EXROZicny test 

1505 INPUT " op t i ríi a t n a d o t-a e x p o z 
i c i e test o - v a c i e h o sni in h u " ; 1 1 e 
s t 

15 10 PR INT hT , 10 , 2 ; "Zo s n i tu a ...i s K a 
tu sedí bodovým sn 

i Ki a c o m " 

1520 LET pp =10 : REM 10 Stup no V 
■ sedi 

1530 DIM eťpp) 

1540 DUT 63 .. 1 : REM Zapnu tie zvec 

s o v a c i e h o p r i s t f o . i a 

1550 FOR i=l Tu PP 

1560 PRINT RT 13 . 12 ; i ; " . S t tpe C " 

1570 LET bC=USR 50000: PRINT RT 

21.25: bc;" 

1530 IF bc =0 THEN GO TO 1500 
1590 GO SUB 2700: REM Kv á d f a t i ■: K 
a a p r o x i iíi a l i a 

I u 00 LET e(i)=jas 
1610 NE XT i 

1630 GO T O 1000 
1690 REM 

i m .. 

1700 cls : PRINT "Korekci a expoz 
i cne ..i do bM " 

1710 INPUŤ "Módi ř i kovana op V. do 
ba expoz i c i es kusobneho sní 16 ku 

I I e s t 

1720 GO TO 1000 
2000 REM 
2010 REM 

2020 CLS : PRINT "EXPOZIC 
N E M E N U" 

2030 PRINT ''"Z 
x po z i c i e " 

2040 PRINT 
m s n i m a c o m ‘ 1 

206.0 PRINT ' ' " E - . expoz i c i a (Tex 

2070 PRINT ' 

. p r i s t r o ..i a ' 1 
2030 PRINT ' 

. p r i s t r o ja " 

2090 PRINT ■ 


zadanie doby e 
’B - meranie bodový 


” l - zapnutie z v e t s 
" 0 - v y p n u tie z v e t s 
"M - navrat do menu 


210G PRUSE 0 
2105 BEEP 0.O2.12 

2110 IF INKEY $ * " Z " THEN GO TO 22 
00 

2120 IF INKEY $ = "b" THEN GO TO 25 
0O 

2130 IF INKEY $="9" THEN GO TO 26 
00 

2140 IF INKEY $="1" THEN DUT 63.1 
: GO Tú 2100 

2150 IF INKEY $="0" THEN ÚUT 63.0 
GO Tu 2100 

2170 IF INKEY $ = " e " THEN GO Tú 23 
00 

2130 IF INKEY $ = " Iíi" THEN GO TO 10 
00 

2190 GO T O 2100 

2199 REM ňPgfjSr 

2200 CLS PR INT "Zadavanie doby 
expoz i c i e ” 

2210 input "Tex=";ex 
2220 GO TO 2000 

2300 rem 

2305 IF ex=0 THEN GO TO 2000 
2310 CLS : PRINT "Expozicia" 

2320 > POKE 23673,0: POKE 236-72.0 
2330 DUT 63 . 1 

2360 LET ex 1 = Í256*PEEK 23673+PEE 
K 23672) /50 

2365 IF ex -ex 1 <0 THEN GO TO 2390 
237© PRINT rt 10 , 12 ; e x -e x l : “ 

2330 GO TO 2360 
2390 OUT 63,0 
2400 GO TO 50 00 

2499 REM 

2500 CLS : PRINT "Meranie budovy 
m sn i m a com " 

2510 INPIJT "Zad a ,i ziadany stupen 
scernania m e r a n e h o m i e s t a " ; s s 

252 0 P R I NT RT l o 3 ; "Z v o i m e r a n e 
m i es t o , a 1 1 i v u ..i sn 

i m a c " 

2530 OUT 63,1: REM Zapnu tie zvec 
s o v a c i e h o p r i s t r o . i a 
2540 LET b C =USR 50000 
2545 OU i 63,0: REM Uy pnu tie zvec 
s o v acie h o p r i s t roj a 
2550 IF bc =0 THEN CLS : PRINT FL 
RSH l h i 10 , 1 ; " In t e nz i t a m i_m o r o 
z s a hu _ s n i i:)a c a " : PflusE O: BtEP .1 
,12: UÚ TO éi000 
25c.0 uu SUB s:700 
257© let ex=e tssc) / j a s *tte s t 
2b 30 GO TO 200 0 
P70O Rt-M 


Kv a d r a 1 1 c k a apr o x i ma c i a 
• e vodové j c Ra řa kteří s t í k c — — — 


2710 Ir bc < 730 THEN LET in=l: 
TO 2770 

2720 IF bc < 1510 THEN LET in=2: 
O TO 2770 

2730 IF bc <4290 THEN LET in=3: 
60 O TO 2770 


, II 


2740 IF bc <11330 THEN LET i n =4 : 

G U Tu 2770 

2750 IF bc <29300 THEN LET i n =5 : 
GO TO 2770 
£760 LET i n =6 

277© LET j a s =a ( i n ) * b c * b c + b i i n ) a t. 
c + c i i n ) ' 

2730 RETURN 

3000 rem 

3005 LET a$="Rktivuj snímač tepl 
o tu " 

30Í0 CLS : PRINT RT 16.5: FLRSH 
1; a $ 

3020 PRINT RT 20,5; "M - navrat d 
o menu" 

3030 IF INKEY $ = "»•■ THEN GO TO 10 
00 

3040 LET tS=USR 50026 
3050 IF ts =0 THEN GO TO 3010 
3055 GO SUB 3100: REM Zaradenie 
do i - 1 e h o i n t e r v a t u m e r a n i a . 

3060 LET t c =lii (2 , i > atstS+ffi (3 , i ) *t 
s +m i 4 , i ) 

3070 PRINT RT 16,5;" 

30S0 PRINT RT 10 , s ; "Tep to t a = " ; t c 
; " " C" " 

3090 GO Tu 3030 

3100 IF ts < m (1.1 ) OR t s > m (1 .21) 
THEN PRINT RT 0,0; FLASH 1; "Tep t 
o t a p r e k r o čita c i a c R o v a n y 
rozsah! ": GO TO 3120 
3110 PRINT hT 0.2." 


3120 IF tS >» (1,11) THEN GO TO 31 
90 

3130 IF t s > lii (1.7 ) THEN GO TO 317 
0 

314© IF ts>=m(l.l) AND t S < = fil (1,3 
i=l: RETURN 
> Iíi (1,3) AMD t s < =m (1,5 ) 


3570 GO SUB 3600: REM 
sustavy t in. rovnic c 
P r a v i d to m . 

3580 NEXT i 

3590 SRUE "iii" DATA m$ 

3595 GO TG 1000 

3600 LE l d =m 1 1 , d ) í 1 

) *m ( 1 . d ) 1 2 + m ( 1 , p ) *m ( 1 

) am í 1 , t ) ta-m i 1 , t ) am ( 1 

) am ( l , d ) t£ 

3610 LET d l=y (d ) am i 1 , 

( 1 , d ) t £ + y i p ) am i 1 , t ) 1 2 
) 1 2 -y ( t ) am i 1 , p ) 1 2 -y ( p 
3615 LET d2=y íd ) aif! i 1 , 
i 1 , d ) t £ +u i p ) am ( 1 . t ) Ť £ 
) t a-y i t ) am ( l , p ) T 2-y i p 
3620 LET d3=ú ( t ) am ( 1 , 
+y ( d ) am i 1 , p ) am i 1 , t ) 1 2 
) am ( 1 , d ) 1 2-y ( p ) am ( 1 , d 
y ( d ) am ( 1 . t i am ( l . p ) 1 2 - 
am i 1 , d ) t£ 

3630 LE I m (2, i ) =d 1/d 
3640 LET m (3, i ) =d£/d 
3650 LET m (4 . i ) =d3/d 
3660 RETURN 


R i e s en i e 
r a m ero v y m 


, p ) ta+iťi ( i , t 
, t ) 1 2 -lii ( 1 , d 
, p ) t 2 -\m ( 1 , P 

P ) t 2+u i t ) am 
-y id ) am i 1 , t 
) a iíi (1 . d) 1 2 
P ) t 2+y ( t ) am 
-y (d ) am (1 , t 
) am ( 1 , d ) t £ 
d ) am ( 1 . p ) t £ 
+y (p ) a m i 1 , t 
) a m ( 1 , t ) 1 2 — 
y ( t ) a m ( 1 , p ) 


Výpis 2. Rutina pre obsluhu snímačov a pre- 
vodníka (91 1-V2) 


J THEN LET 
i 150 IF t 


THEN LET i =2 : RETURN 


Í160 IF ts 


THEN LET i = 


> ln (1,5 ) RND t S < = lii (1,7 ) 


3170 IF ti 


RETURN 


m (1,7) RND ts < =líi ( 1 , 


THEN LET i =4 : RETURN 
3 ISO IF t S > Iíi ( 1 . 9 ) HND t S < =in (1.1 1 
) THEN LET i =5 : RETURN 
3190 IF tSXi. (1.15) THEN GO TO 32 
20 

320© IF t S > =íú (1,1 1 ) RND t S < slii ( 1 . 
13) THEN LET i =6 : RETURN 
3210 > IF ts > m i 1,13 ) RND t S < =m (1.1 
5) THEN LET i =7 : RETURN 
3220 IF t S > m ( 1 , 15 > RND t S < =m (1,1 
7) THEN LET i =3 : RETURN 
3230 IF t s > Id (1.17) RND t S < =lii ( 1 . 1 
9) THEN LET i =9: RETURN 
3240 LET 1=101 RETURN 
55O0 REM 


3502 CLS 

3505 PRINT RT 7,6, INVERSE l;"Ci 
a c h o v a n i e t e r m i s t o r a “ 

3510 FOR 1=1 TO 21: PRINT RT 10, 
7 ; " Me r a n i e c i s t o : " ; i : INPUT "Tep 
Uo t a = ” ; y ( i ) 

3520 LÉT m (1 . i ) =IJSR 50026 
3530 NEXT i 

3540 CLS : PRINT RT 10,2; FLASH 
1 ; "Prebieha v y p o c e t a p r o x i m acie” 
3550 FOR 1=1 TO 10 
3560 LET P =2 a i - 1 : LET d=2ai: LET 
t =2ai +1 


10 

£0. 

30 

40 

45 

50 

6Q 

70 

30 

90 

100 

110 

120 

ISO 

140 

150 

160 

170 

160 

190 

200 

210 

220 

230 

240 

250 

260 

270 

230 

290 

300 

310 

3<£0 

330 

340 

350 

360 

370 

330 

390 


Ru t i n a p r í o t.s i. u h u 
sni ti) a c o v a p r e v o dni k a 


uRG 


50000 


Dl 

LD BC , »000O 
LC354 IN H . (8 lr) 
RLfi 

•J R N L* , L L 5 4 
LC359 INC BC 
INC B 

■JR Z . Les 6 5 
DEC B 
IN H, (81F) 

RLň 

•JR C . LC359 

El 

RET 

LC365 LD BC . 80000 
El 
RET 
Dl 

LD BC, 80000 
LD fi . 800 
OUT (8SF) .H 
LX> H .830 
OUT ( 8 5 F ) , H 
LC376 INC BC 
INC B 

■JR 2 , LC-3S2 
DEC B 
IN H . ( 8 IF ) 

RRft 

•JR C , LC376 

El 

RET 

LC382 LD BC . 80000 
El , 

RET 
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Článek popisuje využití souřadnicového zapisovače MINIGRAF ve 
spojení s počítačem ZX Spectrum. Minigraf je výstupní grafická jednot- 
ka, pracující v soustavě pravoúhlých souřadnic nezávisle ovládaných 
vnějším signálem. Použitím MINIGRAFu získáme periférii, vhodnou 
např. ke kreslení grafů, tabulek, případně obrázků. MINIGRAF však 
nenahrazuje tiskárnu, především z důvodu malé rychlosti kreslení. Při 
současném nedostatku podobných zařízení na našem trhu může při- 
nést použití MINIGRAFu určité oživení vašeho malého výpočetního 
systému. 


Souřadnicový zapisovač MINIGRAF kres- 
lí v pravoúhlých souřadnicích na běžný kan- 
celářský papír formátu A4, případně na svi- 
tek maximální šíře 210 mm. Pisátko je kulič- 
kový fix nebo jiné běžně dostupné pero. 
Posuv pisátka ve směru osy X a posuv 
papíru ve směru osy Y zajišťují krokové 
motorky. Maximální rychlost kreslení je 80 
mm/s, délka kroku je 0,125 mm. MINIGRAF 


je ovládán přes jednoduché jednosměrné 
rozhraní. Dvěma trojicemi vodičů, označe- 
ných XI , X2, X4 a Y1 , Y2, Y4 jsou ovládány 
fáze krokových motorků. Sedmý vodič oýlá- 
dá spouštění pisátka. Pohyb motorků a směr 
pohybu je řízen rostoucí nebo klesající binár- 
ní posloupností příslušné trojice bitů. MINI- 
GRAF nedává žádné zpětné hlášení, proto 
je nutno zajistit časové prodlevy mezi zrně- 



KROK 

VSTUP 


X4(Y4) 

X2(Y2) 

X1(Y1) 

0 

L 

L 

L 

1 

L 

L 

B 

2 

L 

H 

L 

3 

L 

H 

H 

4 

H 

L 

L 

5 

H 

L 

H 

6 

H 

H 

L 

7 

H 

H 

H 

8 

L 

L 

L 

9 

L 

L 

H 

10 

L 

H 

L 

11 

L 

H 

H 

12 

H 

L 

L 

13 

H 

L 

H 

14 

H 

H 

L 

15 

H 

H 

H 

16 

L 

L 

L 


Tab. 1. Posloupnost kroků (904-T1) 


námi binární kombinace programově. Po- 
sloupnost jednotlivých kroků je patrna z ta- 
bulky č. 1. Při rostoucí posloupnosti (např. 
kroky 7,8,9) se pohybuje pisátko i papír 
v kladném směru os (tj. zleva doprava a ze- 
zadu dopředu). Jeden krok znamená posun 
papíru nebo pisátka o 0,125 mm. Makimální 
kmitočet krokováni je 400 Hz. Při reverzaci je 
nutná prodleva 10 ms a po sklopení nebo 
zdvižení pisátka je nutná prodleva 50 ms. 
Pisátko je spouštěno úrovní log.1 . 

Z uvedeného vyplývá, že pro připojení 
MINIGRAFu k počítači musíme použít jednu 
osmibitovou bránu (jeden bit zůstane nevyu- 



XI X2 Xi Y1 Y2 Y4 P OV 

10 9 8 i, 3 2 5 1,11 

(číslo špičky konektoru MINIGRAFU) 

Obr. 1. Propojení interfejsu s Minigrafem (na 
místě oddělovacích zesilovačů lze použít 
např. 2x 7407, 1x3212, 2x 3216, 1x 8282 
ap.) (904-1) 


žit). Pro připojení MINIGRAFu k počítači ZX 
Spectrum můžeme s výhodou použít inter- 
fejs s MHB8255A podle AR č. 6, 1985, 
S. 217. 

Při propojení jsem pro jednodušší pro- 
gramové řešení využil všechny tři brány ob- 
vodu 8255. Každý ovládací bit má v MINI- 
GRAFu udávanou log. zátěž 5, proto je 
vhodné všechny signály zesílit. Propojení 
interfejsu s MINIGRAFem je na obr. 1. Po 
propojení a zadání následujícího jednodu- 
chého programu by se měl motor pro posun 
papíru točit. 

10 OUT1 27,128 
20 FOR A=0 TO 15 
30 OUT 63, A 
40 NEXT A 
50 GOTO 20 


Zaměníme-li výstup 63 za 31 , měl by se 
točit motor pro posun pisátka. Instrukcí OUT 
95, 255 spustíme pisátko. Tím je propojení 
odzkoušeno a můžeme přistoupit k pro- 
gramovému řešení. 

Ovládání MINIGRAFu v jazyce BASIC je 
pomalé, a proto je vhodné psát programy ve 
strojovém kódu. Uvádím příklad programu, 
který provádí kopii obrazovky na souřadni- 
covém zapisovači. Program je uložen na 
konci paměti za RAMTOP. Program nahra- 
jeme např. takto: CLE AR 65043 : LOAD “ “ 
CODE 65044 : POKE 65372, X : POKE 
65414, X. Proměnná X může nabývat hod- 
not od 1 do 8 a určuje rozměr kopie. Po 
nahrání je nastaveno X = 4. Program spustí- 
me příkazem RANDOMIZE USR 65044. Po 
spuštění programu nastavíme ručně pisátko 
do výchozího bodu při levém okraji na začát- 
-ku papíru. K ručnímu ovládání posuvu pisát- 
ka a papíru slouží tlačítka se šipkami pro 
ovládání kurzoru. 

Kreslení spustíme tlačítkem EDIT, přeru- 
šení kreslení a návrat z programu způsobí 
stisk tlačítka CAPS LOCK. Návrat před 
spuštěním kreslení je možný tlačítkem DE- 
LETE. Po ukončení kresby se automaticky 
provede návrat z programu. 

Pro výpis programu není pro svou poma- 
lost zapisovač vhodný, ale v nouzi poslouží 
také. Pro kreslení je naopak velmi vhodný, 
umožňuje jemnější kresbu než obrazovka 
nebo tiskárna. 


Literatura 

1 | Soldán,J.: Interfejs s MHB8255. AR/A, 
č. 6,1985, s. 217-219. 

2 1 MINIGRAF 0507, návod k obsluze, Arit- 
ma 1986. 
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Standardní programátory pamětí EPROM nejsou pro většinu amatérů 
dostupné. Pro malé paměti se nejčastěji amatérsky vyrábějí „ruční“ 
programátory, pro větší paměti je nutno programovat pomocí řídícího 
mikropočítače. Uvedeme popis programování pamětí EPROM 27128 
(16 kB) a 27256 (32 kB) s využitím počítače ATARI řady XL nebo XE. 
Popsaný postup byl použit při ověření funkce programového modulu 
(cartridge) s jazyky BASIC XE - MAC/65. 


Výpis 1 . Strojový kód programu Zapisovač 
(904— V 1 ) 


65044 

243 

245 

213 

62 

128 

211 

127 

17 

0 

0 

65054 

62 

0 

2Í1 

95 

62 

239 

219 

254 

203 

103 

65064 

194 

44 

254 

29 

203 

95 

194 

50 

254 

28 

65074 

203 

87 

.194 

56 

254 

20 

203 

71 

202 

87 

65084 

254 

62 

247 

219 

254 

203 

103 

194 

71 

254 

65094 

21 

203 

71 

202 

84 

254 

217 

205 

96 

254 

65104 

217 

195 

34 

254 

205 

156 

254 

209 

241 

251 

65114 

201 

0 

0 

0 

0 

0 

217 

122 

211 

31 

65124 

123 

211 

63 

205 

112 

254 

217 

201 

0 

0 

65134 

0 

0 

197 

6 

2 

14 

255 

13 

194 

117 

65144 

254 

5 

194 

115 

254 

193 

201 

205 

112 

254 

65154 

205 

112 

254 

205 

112 

254 

205 

112 

254 

201 

65164 

205 

127 

254 

205 

127 

254 

205 

127 

254 

201 

65174 

0 

0 

0 

0 

0 

0 

197 

213 

229 

245 

65184 

30 

3 

217 

197 

229 

17 

0 

0 

1 

0 

65194 

0 

217 

33 

0 

64 

6 

8 

14 

8 

22 

65204 

32 

217 

6 

0 

217 

52 

53 

196 

0 

255 

65214 

35 

217 

62 

8 

128 

71 

217 

21 

194 

185 

65224 

254 

197 

1 

224 

0 

9 

193 

217 

12 

217 

65234 

205 

127 

254 

13 

194 

179 

254. 

197 

1 

32 

65244 

248 

9 

193 

5 

194 

177 

254 

197 

1 

0 

65254 

7 

9 

193 

29 

194 

175 

254 

217 

1 

0 

65264 

0 

217 

205 

0 

255 

217 

225 

193 

217 

241 

65274 

225 

209 

193 

201 

0 

0 

197 

213 

217 

120 

65284 

186 

212 

19 

255 

210 

15 

255 

21 

195 

107 

65294 

255 

20 

195 

114 

255 

121 

187 

202 

39 

255 

65304 

210 

31 

255 

29 

195 

121 

255 

28 

195 

123 

65314 

255 

0 

0 

0 

0 

217 

6 

8 

126 

87 

65324 

122 

23 

87 

218 

77 

255 

62 

0 

211 

95 

65334 

205 

140 

254 

195 

200 

255 

195 

160 

255 

5 

65344 

194 

44 

255 

62 

0 

211 

95 

205 

140 

254 

65354 

209 

193 

201 

62 

255 

211 

95 

205 

140 

254 

65364 

195 

57' 

255 

0 

07 

0 

197 

6 

4 

124 

65374 

211 

63 

60 

103 

205 

112 

254 

5 

194 

93 

65384 

255 

193 

201 

213 

17 

0 

255 

195 

132 

255 

65394 

213 

17 

0 

1 

195 

132 

255 

213 

17 

255 

65404 

0 

195 

132 

255 

213 

17 

1 

0 

197 

6 

65414 

4 

124 

211 

63 

130 

103 

125 

211 

31 

131 

65424 

111 

205 

112 

254 

5 

194 

135 

255 

193 

209 

65434 

195 

183 

255 

0 

0 

0 

217 

205 

90 

255 

65444 

217 

195 

63 

255 

0 

0 

0 

0 

0 

0 

65454 

0 

0 

0 

0 

0 

0 

0 

0 

0 

62 

65464 

247 

219 

254 

203 

79 

194 

3 

255 

217 

209 

65474 

193 

51 

51 

195 

245 

254 

217 

20 

62 

0 

76484 

186 

194 

214 

255 

22 

255 

217 

195 

63 

255 

65494 

217 

195 

60 

255 








Technické řešení 

Adresy, data i řídící signály se přivádějí na 
paměť EPROM přes paralelní interfejs 
s MHB 8255A, jehož popis a schéma jsou 
uvedeny v 1 1 |. Paralelní interfejs je zapojen 
k počítači ATARI v konektoru pro programo- 
vý modul a na joystickové porty. K paralelní- 
mu interfejsu je připojen přípravek s objím- 
kou pro paměť EPROM. Schéma zapojení 
přípravku je na obr. 1 . Adresy prpgramova- 
né EPROM A0 až A7 jsou připojeny na port 
PB obvodu 8255 A, adresy A8 až AI 3 na 
část portu PC. Při programování EPROM 32 
kB je přes přepínače a invertor přiváděna na 
vývod číslo 27 (kde je adresa AI 4) buď 
úroveň log.O (programování v rozmezí $0 až 
$3FFF) nebo úroveň log.1 (programování 
v rozmezí $4000 až $7FFF). Při programo- 
vání EPROM 1 6 kB se tento vývod používá 
jako PGMn. Data jsou vyvedena z portu PA 


na oddělovací obvod MHB 8286. Směr prů- 
chodu dat tímto obvodem lze ovládat signá- 
lem Rn obvodu 8255A nebo signálem OEn 
programované EPROM, Řídící vstupy 
EPROM CEn, OEn jsou ovládány bity PC7, 
PC6. Při programování EPROM 32 kB jsou 
tyto signály kombinovány s latchovanou 
adresou A5, která působí jako hradlový sig- 
nál. Při programování EPROM 16 kB latcho- 
vaná adresa A5 vytváří programovací impuls 
pro PGMn. V zapojení nejsou zakresleny 
přívody napájecích napětí U c c, L/ pp a přísluš- 
né blokovací kondenzátory (paralelné 
100 nF a 5fiF). Provozní hodnoty U C c i L/ pp 
jsou +5 V. Při programování je U C c - 
= 6 V a U pp = 12,5 V. U některých EPROM 
27128 je U pp = 21 V (neuvádíme rozmezí 
napětí). 

Obvod 74LS00 se používá jako invertor 
a oddělovací stupeň. Při programování 
EPROM 27256 působí rovněž jako hradlo 
pro signály řízené CEn a OEn. 
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Obr. 1. Schéma přípravku k programování 
EPROM 27256 a 27128 (915-1 ) 


Programové řešení 

Algoritmy programování pamětí EPROM 
včetně vývojových diagramů jsou uvedeny 
v katalogu firmy Intel. Používáme algoritmus 
nazývaný „inteligent". Programuje se mili- 
sekundovými impulsy; po každém z nich 
následuje verifikace zapsaného bajtu. Po- 
kud byl bajt zapsán správně, programuje se 
závěrečným impulsem („overimpulsem"). 
Délka tohoto impulsu je trojnásobkem celko- 
vé délky všech milisekundových impulsů po- 
třebných k zapsání tohoto bajtu. 

Jestliže se programovaný bajt nezapsal 
ani po 25 impulsech délky 1 ms, je ohlášena 
chyba. Po zapsání všech bajtů programu do 
paměti EPROM se provede verifikace celé- 
ho programovaného úseku při provozních 
hodnotách napětí. 

Hlavní program je vypracován v ASSEM- 
BLERU CPU 6502 a je uložen od adresy 
$8000. Je volán obslužným programem 
v BASIC. Programy jsou uvedeny ve Výpi- 
su 1 a Výpisu 2. 


Ovládání obou programů 

RUN + RETURN 

Start . programu. Na obrazovce se zobrazí 
text; 

„ Programovaní 16/32 kB EPROM (zadej 16 
nebo 32)... ?“ 

Po zadání požadované hodnoty a stisku 
klávesy RETURN se na displeji zobrazí text 
„Adresa EPROM, od ktere se zacina pro- 
gramovat . . . ?“. 

Na tuto výzvu uložíme příslušnou adresu 
(decimálně) a stiskneme RETURN. Na dis- 
pleji uvidíme 

„ Adresa RAM, kde začínají data pro pro- 
gramovaní EPROM . . . ?“. 

Zadáme adresu začátku dat (decimálně) 
a stiskneme RETURN. 


Na displeji se zobrazí další text: 

„Adresa RAM, kde konci data pro programo- 
vaní . . . ?“. 

Zadáme koncovou adresu RAM, kde jsou 
uložena data. Program pokračuje po stisku 
RETURN. Na displeji se zobrazí 
„ Kontroluj napětí Vcc a Vpp (+5 V) na pa- 
měti EPROM! (Cekám na klávesu!)". 

Po stisku libovolné klávesy tento program 
v BASIC vyvolá program ve strojovém kódu 


pro programování EPROM. Na displeji uvidí- 
te 

„ Nastav napětí Vcc - 6 V, Vpp = 12,5 V. 
(Cekám na klávesu! - A, B)" 

Na tuto výzvu nastavíte programovací napě- 
tí v uvedeném pořadí na paměti EPROM 
(podle popisu v katalogu Intel). Pro některé 
EPROM 271 28 je třeba V pp - 21 V. Po stisk- 
nutí kláves A a B v uvedeném pořadí pro- 
gram provádí potřebné programovací opera- 


Výpis 2. Program ve strojovém kódu k programování paměti EPROM (ukládá se od 
adresy $8000) (915-V2) 


68 20 02 81 AD 11 06 F0 06 20 12 
EB 80 20 72 81 20 90 81 20 11 83 
25 81 A9 00 8D 00 D4 A5 CB 8D OB 
AO 00 B1 CB 8D 08 06 A0 Ol 20 9F 
80 20 39 82 AD 08 06 CD 09 06 DO 
06 6D OA 06 A8 20 9F 81 EE 06 06 
02 E6 CC A5 CB CD 04 06 DO B1 A5 
02 8D 00 D4 20 1A 81 A9 00 8D OO 

82 AO 00 B1 CB CD 09 06 DO 37 E6 
DO 03 EE 07 06 A5 CB CD 04 06 DO 
AD 2F 02 8D OO D4 20 84 81 20 3B 
CD 09 06 DO 03 4C 58 80 20 84 81 

83 20 30 8} 4C CA 80 AD OO 06 8D 
AD 02 06 85 CB AD 03 06 85 CC 60 
A2 05 AO 85 20 42 C6 60 A2 35 AO 

84 20 42 C6 20 46 81 60 A2 A7 AO 
A2 ED AO 83 20 42 C6 20 46 81 60 
46 81 60 AD 09 D2 C9 3F DO F9 AD 
48 88 FO OC A2 B2 EA EA EA CA DO 
EA EA CA DO FA 68 AA EA 60 08 68 
0D 06 A9 OO 8D 0E D4 60 AD OD 06 

60 8D E3 D5 20 2C 83 A9 80 20 84 
FO 6C 20 11 83 AD 08 06 20 74 83 
8D DO D5 20 55 81 8D FO D5 A9 OE 
CO Ol DO OD A9 03 8D OF 06 A9 01 
8D OF 06 A9 01 8D 10 06 EE 10 06 
06 EE ÍO 06 CE ÍO 06 EE ÍO 06 CE 
FF 8D 0F 06 CE 10 06 D0 D9 EA EA 
OB 06 20 74 83 8D E3 D5 A9 OF 20 
20 55 81 8D FO D5 20 C7 81 A9 OE 
11 06 DO 03 4C 7D 82 A9 90 20 84 
83 20 3C 83 8D F3 D5 8D F7 D5 8D 
8D 09 06 8D F7 D5 BD F3 D5 8D E3 
83 A9 80 20 84 83 8D EO D5 60 A9 
OF 20 84 83 20 C7 81 A9 OD 20 84 
F7 D5 20 C7 81 AD 00 D3 8D 09 06 
83 A9 0C 20 84 83 20 C7 81 A9 OE 
8D EO D5 60 AD 11 06 DO 03 4C 7D 

83 A9 OD 20 84 93 A9 OF 20 84 83 
D5 8D D7 D5 20 C7 81 AD 0O D3 8D 
8D E3 D5 20 2C 83 A9 OE 20 84 83 

84 83 8D E0 D5 60 AD 06 06 8D OO 
FA D5 8D F2 D5 AD 07 06 29 3F 20 
A9 FF 8D OO D3 A9 3C 8D 02 D3 60 
0O D3 A9 3C 8D 02 D3 60 AD OB 06 
AA D9 20 E6 D8 AO FF C8 B1 F3 10 
91 F3 A6 F3 A4 F4 20 42 C6 60 8D 
8D FB D5 8D F3 D5 60 8D OO D3 20 
8D FO D5 60 8D OO D3 20 C7 81 8D 
8D El D5 60 20 20 20 4E 61 73 74 
69 20 56 63 63 3D 36 56 2C 20 56 
2E 20 20 20 20 20 20 20 20 20 20 

61 20 6B 6C 61 76 65 73 75 21 20 
20 20 45 50 52 4F 4D 20 6E 65 6C 
74 20 28 58 3D 32 35 29 2E 20 20 
20 20 20 20 20 20 28 43 65 6B 61 
76 65 73 75 21 20 2D 41 2C 42 29 
20 6E 61 70 65 74 69 20 56 70 70 
3D 35 56 2E 20 20 20 20 20 20 20 
28 43 65 6B 61 6D 20 6E 61 20 6B 
2D 41 2C 42 29 9B ID 20 20 20 45 
72 6F 67 72 61 6D 6F 76 61 6E 61 
20 20 20 20 20 20 20 20 20 20 20 
6D 20 6E 61 20 6B 6C 61 76 65 73 
9B 7D AO AO DO D2 CF C7 D2 Cl CD 
D2 CF CD AO B2 B7 B1 B2 B8 AO El 
20 20 20 20 20 20 20 20 AO A0 AO 
EF E6 F4 F7 El F2 E5 AO A0 AO ID 
61 6D 6F 76 61 6E 69 20 45 50 52 
20 28 31 36 6B 42 29 21 20 20 20 
79 3A 9B 20 20 50 72 6F 67 72 61 
50 52 4F 4D 20 32 37 32 35 36 20 
20 20 20 ID ID 50 6F 6B 79 6E 79 
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10 REM ***************************** 

20 REM * OBSLUŽNÝ PROGRAM PRO * 

30 REM * NAHRAVANI EPROM * 

40 REM * 11.7.88. Humble Software * 

50 REM ***************************** 

6© ? "Programovaní 16/32 kB EPROM (zadej 16 nebo 32) ; 

70 INPUT DRUH 


80 IF DRUH016 AND DRUH032 THEN 60 
90 DRUH=DRUH/16-1 

100 ? "Adresa EPROM, od ktere se zacina prog— ramovat 
110 INPUT ZÁCEP 

120 ? "Adresa RAM, kde začínají data pro prog— rámováni EPROM .. 
130 INPUT ZACRAM 

140 ? "Adresa RAM, kde konci data pro progra— movani . . . " ; 

150 INPUT KONRAM 
160 KONRAM=KONRAM+ 1 

170 POKE 1536, ZACEP-INT(ZACEP/256) *256 
180 POKE 1537, INT(ZACEP/256) 

190 POKE 1538, ZACRAM— INT < Z ACRAM/256) *256 
200 POKE 1539, INT (ZACRAM/256) 

210 POKE 1540, KONRAM- INT (KONRAM/256) *256 
220 POKE 1541, INT (KONRAM/256) 

230 POKE 1553, DRUH 

240 ? "Kontroluj napětí Vcc a Vpp (+5V) na paměti EPROM! 

(Cekám na klávesu!)" 


250 POKE 764,255 

260 IF PEEK ( 764 ) =255 THEN 260 

270 C=USR( 32768) 

280 ? " KONEC!" 

290 END 

30000 POKE 54018, 56: POKE 54016 

30010 POKE 54016, 128 

30020 POKE 54768,0 

30030 POKE 54776,0 

30040 POKE 54768,0 

30050 POKE 54016,0 

30060 POKE 54771,0 

30070 POKE 54779,0 

30080 POKE 54771,0 

30090 POKE 54770,0 

30100 POKE 54778,0 

30110 POKE 54770,0 

30115 POKE 54016,128+64 

30120 POKE 54769,0 

30130 POKE 54777,0 

30140 POKE 54769,0 


,255* POKE 54018,60 


ce. Po úspěšném naprogramování paměti 
EPROM se na displeji zobrazí nápis 
„Sniž napět i Vpp =5 V, Vcc -5 V. (Cekám na 
klávesu! - A, B)“. 

Po snížení programovacích napětí (v uvede- 
ném pořadí) na určené hodnoty a stisknutí 
kláves A a B program provádí verifikaci 
naprogramovaných bajtů. Pokud nebyla na- 
lezena chyba, zobrazí se na displeji nápis 
„EPROM naprogramovaná. (Cekám na klá- 
vesu! - A, B)“ 


Výpis 1. Základní program v jazyku BASIC 
(91J5-V1) 


Po stisknutí uvedených kláves následuje 
návrat do programu v BASIC a nápis 
„KONEC!". 


Tímto postupem je celá požadovaná oblast 
paměti EPROM naprogramována. 

V případě, že ani po 25 jednomilisekundo- 
vých impulsech není do paměti EPROM 
správně zapsán požadovaný bajt, objeví se 
nápis 

„EPROM nelze nahrat (X=25). (Cekám na 
klávesu! - A, B)“. 

Po stisku kláves A, B se vrátíte do programu 
v BASIC a zobrazí se nápis 
„KONEC!". 

V případě, že při verifikaci po skončení 
programování při provozních hodnotách na- 
pětí byl v paměti EPROM nalezen bajt, který 
neodpovídá příslušnému bajtu v RAM počí- 
tače, na obrazovce se objeví stejný text, jako 
při chybném zápisu po 25 impulsech délky 
1 ms a po stisku kláves A, B se program vrátí 
do BASIC a zobrazí se nápis 
„KONEC!". 

Před zasunutím a vyjmutím EPROM z ob- 
jímky přípravku se nastaví logická 0 na pří- 
vodech EPROM příkazem 

GOTO 30000 + RETURN. 


Závěr 

Zvolené hardwarové uspořádání umožňu- 
je programovat EPROM 271 28 (1 6 kB) nebo 
27256 (32 kB). V případě EPROM 27256 se 
nejdříve programuje 1 6 kB a po změně úrov- 
ně na adrese AI 4 dalších 16 kB. 

Programování paměti EPROM jsme ověři- 
li s paralelním interfejsem využívajícím joys- 
tickové porty a port pro programový modul 
(popsaný v 1 1 |). Zápis 1 6 kB včetně verifika- 
ce trvá asi 4 min. 


Literatura 

1 | Pokorný J. et al.: Univerzální paralelní 
interfejs k počítačům ATARI 800XL 
a 130XE. Zasláno do Amatérského Ra- 
dia. 


Ing. Jaroslav Pipek, Horská 439, 543 02 Vrchlabí 

Článek se zabývá popisem programovacího přípravku přímo slučitel- 
ného se školním mikropočítačem PMI 80. Obvodové řešení však může 
být vodítkem i pro vlastníky jiných mikropočítačů, kteří nemají možnost 
paměti EPROM programovat. Přestože PMI 80 patří mezi nejjednoduš- 
ší, lze jej vedle praktického procvičování instrukčního souboru mikro- 
procesoru MHB8080 úspěšně využít jako základní jednotku pro realiza- 
ci celé řady i poměrně složitých automatizačních a regulačních zařízení. 
Je ovšem nutné tuto základní jednotku patřičně rozšířit jak obvodově, 
tak programově v souladu s danou aplikací. 


Při návrhu a oživování zařízení se neobej- 
deme (alespoň v počátečním stadiu) bez 
použití paměti typu EPROM, které umožňují 
trvale uchovat informaci bez ohledu na jejich 
zapojení do obvodu. Lze je však vymazat 
ozářením ultrafialovými paprsky. To umož- 
ňuje použití těchto pamětí i všude tam, kde 
již program je funkční, ale kde se dá předpo- 
kládat, že časem dojde k jeho obměně. 


Navržený přípravek umožní uživatelům 
PMI 80 pohotově kdykoli změnit obsah těch- 
to paměti nezávisle na jiném systému. 


Popis přípravku 

Přípravek je osazen pouze dvěma 10 
(MH7400 a UCY74123) a šesti tranzistory. 


Odpadá adresový i datový registr. Jako re- 
gistrů je využito údajů na datové a adresní 
sběrnici ve stavu WAIT mikroprocesoru. 
Celý přípravek je sestaven na oboustranně 
plátované kuprextitové destičce o rozmě- 
rech 81 x80 mm a zasouvá se do konektoru 
K1 na desce PMI-80. 


Obsluha a činnost 

Nejprve jsou data určená k zápisu do 
EPROM zapsána z klávesnice PMI-80 do 
zóny RAM paměti (zvolena oblast 1C00 až 
1CFF). Tento blok dat lze přepsat ze zóny 
RAM do libovolné oblasti programované pa- 
měti EPROM v rozsahu 0000 až 03FF. Po- 
čáteční adresu této oblasti předem uložíme 
z klávesnice do pomocných buněk 1F00 
a 1 F01 v oblasti paměti RAM PMI-80. Přitom 
do buňky 1F00 ukládáme nižší bajt této 
adresy v hexadecimálním tvaru, vyšší bajt 
do buňky 1F01. Údaje vyššího bajtu však 
korigujeme vždy o + 20H (viz tab.1) s ohle- 
dem na aktivaci programované EPROM sig- 
nálem AI 3. Do další pomocné buňky 1F02 
ukládáme v hexadecimálním tvaru údaj 
o délce bloku dat v RAM (jinak řečeno obsah 
1 F02 udává nižší bajt koncové adresy bloku 
dat v RAM). S ohledem na skutečnost, že 
jsme pro data určená k přepisu do EPROM 
vymezili v RAM oblast 1C00 až 1CFF, je 
délka bloku dat max. 256 bajtů. Jednoduše 
lze však naprogramovat až 1 kB dat, bude-li 
se opakovat programovací cyklus (s novou 
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náplní buněk 1F00 až 1F02 podle tab.1) 
a s novým blokem dat umístěným opět do 
zóny 1 C00 až 1 CFF celkem čtyřikrát. Je to 
nutné vzhledem k nedostupnosti dalšího 
1 kB paměti RAM. Bude-li k dispozici celý 
1 kB RAM pouze pro účel programování, pak 
lze programovat EPROM najednou (ovšem 
s patřičně změněným řídicím programem). 
Řídicí program je umístěn v pomocné paměti 
EPROM, která je zasunuta do volné pozice 
na desce PMI-80 (její počáteční adresa je 
0400). Programovaná paměť se umisťuje na 
desku programátoru. Programování (přepis 
z RAM) začíná spuštěním řídicího programu 
„PROGRAM" na adrese 0400 (řídicí pro- 
gram lze umístit libovolně, podle toho se 
mění startovací adresa). Data určená pro 
zápis do EPROM jsou postupně načítána ze 
zóny paměti RAM (1C00 až 1CFF) a přesu- 
novou instrukcí MOV M, A prostřednictvím 
bitu AI 3 adresní sběrnice je startován mo- 
nostabilní klopný obvod MK01 , který vytváří 
signál READY a uvede mikroprocesor do 
stavu WAIT. Současně je spínacím obvo- 
dem, tvořeným tranzistory T5 a T6, přivede- 
na na vstup CSn/WE úroveň 12 V. Stav 
adresní sběrnice se nemění, data na datové 
sběrnici jsou připravena od okamžiku pře- 
chodu signálu WR na log.0. Současně s pře- 
chodem signálu WAIT na úroveň H je přes 
zpožďovací obvod, tvořený dvěma hradly 
MH7400, spuštěn druhý monostabilní klop- 
• ný obvod MK02, který generuje impuls pro 
připojení programovacího napětí U prog spí- 
načem s tranzistory TI a T2. Je-li programo- 
vání ukončeno, na displeji se rozsvítí nápis 
END. Tlačítkem RESET přejdeme do výcho- 
zího stavu mikroprocesoru, doprovázeného 
nápisem PMI-80. 

Správnost zapsaných dat mohu okamžitě 
překontrolovat spuštěním programu „KOM- 
PARACE" na adrese 0430. Je-li některý bajt 
— . zapsán chybně, zobrazí se v datovém poli 
displeje číslo tohoto bajtu. Byl-li celý blok 
naprogramován správně, rozsvítí se nápis 
„C dobrE". Obsah programované paměti 
lze též kdykoli přečíst běžným způsobem 
počínaje adresou 2C00. K tomuto účelu 
slouží spínač z tranzistorů T3 a T4. 


Další možnosti řídicího programu 

Často potřebujeme překopírovat obsah 
jedné paměti EPROM do druhé. V tomto 
případě si pomůžeme následovně, aniž by- 
chom museli vyvádět sběrnice. První paměť 
(ORIGINÁL) umístíme do objímky, připájené 
shora k vývodům na paměti MHB8608 s pro- 
gramem MONITOR. Pouze vývod CSn je 
propojen lankem s pozicí CS4n na konektoru 
K1 . Druhá EPROM (KOPIE), na níž bude 
pořizována kopie, je v objímce na desce 
programátořu. 

Spuštěním uživatelského programu KO- 
PIE na adrese 0410 se přepíše celá paměť 
z pozice ORIGINÁL na pozici KOPIE (pro- 
gram testuje stavy FF, které přeskakuje). 
V tomto případě může být obsah pomocných 
buněk 1 F00 až 1 F02 libovolný. Program tyto 
buňky nerespektuje. 

V případě, že potřebujeme změnit obsah 
dat v EPROM, umístíme tuto do pozice 
ORIGINÁL. Na pozici kopie umístíme paměť 
prázdnou. Spuštěním programu PŘEPIS na 
adrese 0470 (v souladu s tab. 1) se přepíše 
požadovaný blok dat do oblasti RAM na 
adresy 1C00 až 1CFF, kde je možné běž- 
ným způsobem (viz obsluha PMI 80) změnit 
obsah požadovaných buněk. Blok dat po 
opravě přepíšeme do EPROM spuštěním již 
známého programu PROGRAM na adrese 
0400. Tuto možnost přechodu přes RAM lze 
využít i pro přemístění bloku dat z dané 
^ j. pozice původní EPROM do libovolné oblasti 
64 nové EPROM. 


Tab. 1. Pomocné buňky ’ ‘ ~ ~ ... . . . , 

v paměti RAM (914— Ti ) 1F00 obsahuje mzsi bajt adresy, udávající počátek bloku 

dat v EPROM, a to: 

a) v programované EPROM při programu "PROGRAM", 

b) ve snímané EPROM při programu "PŘEPIS". 

1F01 obsahuje vyšší bajt, závisí na oblasti EPROM, kterou 
programuji při programu PROGRAM, nebo z které snímám 
při programu PŘEPIS. 


programovaná oblast 

obsah 1F01 

přepisovaná oblast 


EPROM 


0000 - OOFF 

20 

0100 - 01FF 

21 

0200 - 02FF 

22 

0300 - 03FF 

23 


Poznámka 

Jelikož není použit adresový dekodér, ale 
přímo bit AI 3 na přechod do stavu WAIT, 
mohlo by v důsledku činnosti programu MO- 
NITOR dojít k přepsání již naprogramova- 
ných správných dat při ponechání -pro- 
gramovacího napětí + 25 V. Proto je využit 
výstup PB7 101 0 pro blokování obou MKO 
mimo vlastní program „PROGRAM". Oba 
jsou blokovány vždy od okamžiku připojení 
zdroje k PMI-80 a po stisku tlačítka RESET 
(neboť bit PB7 brány PB 101 0 je ve třetím 
stavu, tudíž T8 je sepnut). Programově je zajiš- 
těno, že pouze při programování přechází 
výstup PB7 do stavu H a tím uvolňuje činnost 
obou MKO (UCY74123). Vývod PB7 je z po- 
zice '41 konektoru K2 spojen lankem na 
vstup T7. Signál z kolektoru T8 je přivede na 
nevyužitou pozici 28 konektoru K1 . Obvod 
s tranzistory T7 a T8 je umístěn v univerzál- 
ním poli přímo na desce PMI-80. 


Oživení a nastavení 


Zapojení je natolik jednoduché, že s oživo- 
váním přípravku nebudou problémy. Po osa- 
zení a překontrolování vodivých cest podle 
obr. 1 nastavíme běžce trimrů asi do polovi- 
ny dráhy. 

První známka správné funkce bude, když 
po zasunutí přípravku do konektoru K1 (při 
přerušeném vývodu z kolektoru T8 na nulo- 
vací vstupy UCY74123) bude blikat nápis 



„PMI-80". Podle 1 1 | by jjiéla být délka pro- 
gramovacího pulsu fpw v rozmezí 0,1 až 
1 ms. Pro spolehlivé programování paměti 
musí být současně splněna nerovnost 
N. t pw >,1 00 ms, kde N je počet programova- 
cích cyklů. 

Volíme N = 128 (viz příkaz MVI B,80 na 
adrese OOFB), t = 800 \is. Pomocí oscilo- 
skopu nastavíme trimrem R7 dobu kyvu 
MKO 2 asi na 800 fis, trimrem R1 dobu kyvu 
MK01 asi na 860 ^is. Zapojení s těmito časy 
funguje spolehlivě. Dále připojíme pro- 
gramovací napětí. Na výstupu emitoru T2 se 
musí objevit pulsy s úrovní + 25 V a délkou 
800 ^s. Po připojení vývodu z kolektoru T8 
na nulovací vstupy UCY74123 je přípravek 
připraven k činnosti. Zbývá ještě uložit do 
pomocné paměti EPROM vlastní řídicí pro- 
gram podle Výpisu 2. Jedna z možností, jak 
tuto paměť již v tomto stadiu naprogramovat 
bez použití jiného programátoru, je umístit 
řídicí program „PROGRAM" (zahrnuje části 
začínající adresami: PROGRAM, PŘESUN, 
ZOBRAZ) např. počínaje adresou 1 D00 do 
paměti RAM. Nyní můžeme již známým způ- 
sobem uložit celý řídicí program podle Výpi- 
su 2 s tím, že startovací adresa je 1D00 
(pozor též na změnu adres ve skokových 
instrukcích). 

Vlastní programování si názorně objasní- 
me na dvou příkladech. Představme si nej- 
prve, že je třeba do paměti EPROM počínaje 
adresou např. 01 AA zapsat následující blok 
dat: F3, 3E, 20, 06, 80, 21 , FF, 1 E, 23, 00, 76. 
Postupně provedeme následující kroky: 

1) Data zapíšeme do paměti RAM počínaje 
adresou 1C00: 

1C00 F3 
1C01 3E 
1C02 20 
1C03 06 
1C04 80 
1C05 21 
1C06 FF 

1C07 1E V 

1C08 23 
1C09 00 
1C0A 76 

Délka bloku dat, jak je zřejmé, je OA. 

2) V souladu s tab. 1 zapíšeme na pomocné 
buňky: 

1F00 AA (nižší bajt počáteční ukládací 
adresy) 

1 F01 21 (vyšší bajt + 20H) 

1 F02 OA (délka bloku dat) 

3) Odstartujeme program PROGRAM příka- 
zem G. 








Výpis 1. Program v symbolických instrukcích 8080. Startovací 
adresa = absolutní adresa EPROM + 0400H (paměť je aktivována 
vstupem CSIn) (914-V1) 

(914-V1) 

Adresa 

absolutní 


0000 

PROGRAM: 

MVT C,FF ; pomocná data 

0002 


LHLD 1F00 ; vytvořeni počáteční ukládací 
adresy 

0005 


LXI D,1C00 ; počátek bloku dat v RAM 

0008 


JMP PŘESUN 

0010 

KOPIE: 

LXI D,1000 ; počátek bloku dat v EPROM 
"ORIGINÁL" 

0013 


LXI H,2000 ; počáteční adresa v EPROM 
■KOPIE" 

0016 


MVI C,00 ; pomocná data 

0018 


JMP PŘESUN 

0020 

PŘESKOČ 1: 

LDA 1F02 ; celý blok naprogramován? 

0023 


CMP L 

0024 


JNZ TU ; není 

0027 


JMP KONEC ; ano 

0030 

KOMPARACE: 

CALL VSTUP 

0033 


ORI OC ; vytvoření počáteční adresy EPROM 

0035 


MOV H,A, 

0036 


LXI D,1C00 ; poč. adresa RAM 

0039 


XCHG 

003A 


DCX H 

003B 


DCX D 

003C 

OPĚT: 

INX H 

— 003D 


INX D 

003E 


DCX B ; test délky bloku dat 

003F 


MOV A,C 

0040 


CMP B 

0041 


JZ ANO ; data zapsána správné 

0044 


LDAX D 

0045 


CMP M ; není chyba? 

0046 


JNZ OPĚT ; testuj další bajt 

0049 


MOV A,L ; číslo chybného bajt 

00 4 A 


STA 1FFA 

004D 


CALL 00FB ; zobraz číslo chybného bajtu 

0055 

VSTOP: 

LDA 1F02 

0058 


MOV C,A ; nastavení čítače cyklu 

0059 


MVI B,00 

005B 


INX B 

005C 


INX B 

005D 

v 

LHLD 1F00 

0060 


MOV A ř H ; utvoř vyšší bajt počáteční 
adresy, přepiš z pozice 1000 
do RAM 

0070 

PŘEPIS 1: 

CALL VSTUP 

0073 


ORI 10 ; realizace adresy "ORIGINÁL* 

0075 


JMP VYSTUP 

0080 

PŘEPIS 2: 

CALL VSTUP ; realizace adresy 
prográmiEPROM 

0083 


ORI 0C, 

0085 


JMP VYSTUP 

0090 

VYSTUP: 

MOV H,A 

0091 


LXI D,1C00 

0094 


DCX H 

0095 


DCX D 

0096 

TAM: 

INX H 

0097 


INX D 


0098 


DCX B 

0099 


MOV A,C 

009A 


CMP B 

009B 


JZ ZOBRAZ ; celý blok dat je přepsán? 

009E 


MOV A,M ; ne 

009F 


XCHG 

00A0 


MOV M,A 

00 AI 


XCHG 

00A2 


JMP TAM ; pokračuj v přepisu dat 

OOAA 

ANO: 

LXI H,190C ; zobraz *C dobrE" 

00AD 


SHLD 1FFF ; ukládej kódy znaku do výst. 
registru PMI 80 

00B0 


LXI H,110D 

00B3 


SHLD 1FF1 

00B6 


LXI H,120B 

00B9 


SHLD 1FF3 

00BC 


LXI H,190E 

00BF 


SHLD 1FF5 

00C2 


MVI A, 19 

OOC4 


STA 1FF7 

OOC7 


CALL 0116 ; podprogram "OUTKE" PMI 80 

00D0 

ZOBRAZ: 

LXI H,1919 ; zobraz "END" 

00D3 


SHLD 1FFF ; ukládej kódy znaku do výst. 
registru PMI 80 

00D6 


LXI H,0E19 

00D9 


SHLD 1FF1 

OODC 


LXI H,0D1B 

OODF 


SHLD 1FF3 

00E2 


LH H,1919 

00E5 


SHLD 1FF5 

00E8 


MVI A, 19 

OOEA 


STA 1FF7 

OOED 


CALL 0116 ; podprogram "OUTKE" PMI 80 

00F0 

PŘESUN: 

MVI A, 88 ; programování 82 55 

00F2 


OUT FB 

00F4 


MVI A, 80 ; PB7 na úroveň "H" 

00F6 


OUT F9 

00F8 


XCHG 

OOF9 


DCX H 

OOFA 


DCX D 

OOFB 

TU: 

MVI B,80 

OOFD 


INX H ; přechod na další adresu 

OOFE 


INX D 

OOFF 


MOV A,M ; přesun dat z RAM 

0100 


CPI FF 

0102 


JZ PŘESKOČ ; neprograiuj "FF* 

0105 

SEM: 

XCHG 

0106 


MOV M,A ; cyklus programováni 
jednoho bajtu dat 

0107 


DCR B 

0108 


JNZ SEM ; je cyklus ukončen? 

010B 


XCHG, ANO 

010C 

PŘESKOČ: 

HOV A,C ; je požadován program 

í 


nebo kopie? 

010D 


CPI FF 

010F 


JZ PŘESKOČ 1; program 

0112 


NOP 

0113 


NOP 

0114 


MOV A,L ; kopie 

0115 


CPI FF ; test ukončení přepisu 

0117 


JNZ TU 

011A 


MOV A,H 

01 1B 


CPI 13 

01 ID 


JNZ TU ; celá pamét překopírovaná? 

0120 

KONEC: 

MVI A, 00 ; ano 

0122 


OUT F9 

0124 


JMP ZOBRAZ ; zobraz nápis "END" 


66 


Nyní si povšimneme složitějšího případu, 
když přechází blok dat svojí délkou přes dvě 
oblasti. V tom případě musíme program roz- 
dělit na dva dílčí úseky. Např. blok dat 
z prvního příkladu chceme umístit do EP- 
ROM počínaje adresou OOFB. Podle tabul- 
ky 1 je zřejmé, že se přechází z oblasti 1 do 
oblasti 2. Provedeme posloupnost následují- 
cích kroků: 

1) Určíme délku bloku dat, který lze ještě 
umístit do zóny 1 pomocí vztahu: 

FF - nižší bajt počáteční ukládací 
adresy + 01. 

Tedy FF - FB + 01 - 05. 

2) Buňky v RAM obsadíme následovně: 

1C00 F3 
1C01 3E 
1C02 20 
1C03 06 
1C04 80 

3) V souladu s tab. 1 zapíšeme na pomocné 
buňky: 

1F00 FB (nižší bajt počáteční ukládací 
adresy) 

1F01 20 

1 F02 04 (délka bloku dat) 

4) Odstartujeme program PROGRAM. 

5) Zbylá data zapíšeme do RAM opět počí- 
naje buňkou 1C00: 

1C00 21 
1C01 FF 


Výpis 2. 

, Obsah pomocné paměti 

0000 

EPROM s řídicím programem 

0010 



(914-V2) 

0020 




0030 




0040 




0050 

Seznam součástek 

0060 

0070 

R1.R7 

TP 011 

22 kil 

0080 

R2.R4 

TR 151 

12 kil 

0090 

R3.R5 

TR 151 

390 Q 

00A0 

R6 

TR 151 

5.6 kil 

nnnn 

R8 

TR 151 

6,8 kil 


R9-R12 

TR 151 

4,7 kil 

ooco 




00D0 

C1.C3 

TK 782 

150 nF 

00E0 

C2 

TK 782 

10 nF 

00F0 

TI , T2, T4, T6, 

KC507 

0100 

T3, T7, T8 

KC508 

0110 

T5 


KSY63 

0120 


1C02 1E 
1C03 23 
1C04 00 
1C05 76 

6) Počáteční ukládací adresa je nyní 0100 
a v souladu s tab. 1 uložíme na: 

1F00 00 
1F01 21 
1F02 05 

7) Odstartujeme program PROGRAM příka- 
zem G. 


OE 

FF 

2A 

00 

1F 

11 

00 

1C 

C3 

FO 

04 

FF 

FF 

FF 

FF 

FF 

11 

00 

10 

21 

00 

20 

OE 

00 

C3 

F0 

04 

FF 

FF 

FF 

FF 

FF 

3A 

02 

1F 

BD 

C2 

FB 

04 

C3 

20 

05 

FF 

FF 

FF 

FF 

FF 

FF 

CD 

55 

04 

F6 

OC 

67 

11 

00 

1C 

EB 

2B 

1B 

23 

13 

OB 

79 

B8 

CA 

AA 

04 

1A 

BE 

CA 

3C 

04 

7D 

32 

FA 

1F 

Ctí 

FB 

00 

FF 

FF 

FF 

FF 

FF 

3A 

02 

1F 

4F 

06 

00 

03 

03 

2A 

00 

1F 

7C 

C9 

FF 

FF 

FF 

FF 

FF 

FF 

FF' 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

CD 

55 

04 

F6 

10 

C3 

90 

04 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

CD 

55 

04 

F6 

OC 

C3 

90 

04 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

67 

11 

00 

1C 

2B 

1B 

23 

13 

OB 

79 

B8 

CA 

DO 

04 

7E 

EB 

77 

EB 

C3 

96 

04 

FF 

FF 

FF 

FF 

FF 

21 

OC 

19 

22 

EF 

1F 

21 

OD 

11 

22 

F1 

1F 

21 

OB 

12 

22 

F3 

1F 

21 

OE 

19 

22 

F5 

1F 

3E 

19 

32 

F7 

1F 

CD 

16 

01 

FF 

FF 

FF 

FF 

FF 

FF 

21 

19 

19 

22 

EF 

1F 

21 

19 

0E 

22 

F1 

1F 

21 

1B 

OD 

22 

F3 

1F 

21 

19 

19 

22 

F5 

1F 

3E 

19 

32 

F7 

1F 

CD 

16 

01 

3E 

88 

D3 

FB 

3E 

80 

D3 

F9 

EB 

2B 

1B 

06 

80 

23 

13 

7E 

FE 

FF 

CA 

OC 

05 

EB 

77 

05 

C2 

06 

05 

EB 

79 

FE 

FF 

CA 

20 

04 

00 

00 

7D 

FE 

FF 

C2 

FB 

04 

7C 

FE 

13 

C2 

FB 

04 

3E 

00 

D3 

F9 

C3 

DO 

04 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


Při přepisu z paměti EPROM v pozici 
ORIGINÁL do paměti RAM je postup úplně 
shodný s tím, že na 1F00 ukládáme opět 
nižší bajt počáteční adresy, tentokrát však 
přepisovaného bloku dat, na 1 F01 vyšší bajt 
této adresy zvětšený opět o + 20H a na 1 F02 
opět délku přepisovaného bloku dat. 

Literatura 

1 1 1 Programátor paměti EPROM řízený mi- 
kropočítačem. ST8/81. 


< — ' > 

OSCILOSKOP Z0 ZX SPECTRA 

s . A > 

Jindřich Vídenský, Lamač-Podháj 55, 841 03 Bratislava 

Program bol vytvořený pre využitie AD prevodníka s mikropočítačom 
v elektrotechnickej praxi ako jednoduchého nf paměťového oscilosko- 
pu. Umožňuje merať v ósmich paměťových rozsahoch signály do 15 
kHz. 


Po nahraní programu do počítača sa zo- 
brazí základné menu: 

F . . . Změna farieb INK, PAPER, BOR- 
DER. 

Z . . . Změna riadiaceho slova, jeho adresy 
a adresy vstupného portu. 

P . Změna adresy vlastného podprogra- 

mu, rubovofnej rutiny, ktorá sa dá 
vyvolat’ počas běhu osciloskopu. 
Móže to byť napr. podprogram pre 
Hardcopy. 

C Změna synchronizačnej hodnoty (viď 

ďalej). 

S . . . Start osciloskopu. Stlačením tejto klá- 
vesy sa vypíše 

hlavně menu s týmito možnosťami 

. 1 -8 Stlačením jednej z týchto kláves vybe- 
rieme časový rozsah a zároveň sa 
spustí zobrazovací režim oscilosko- 
pu, v ktorom prebieha vzorkovanie 
signálu a jeho zobrazovanie. 

Z . . V zobrazovacom režime sa vykreslí 
na obrazovku sieťka 5x10. 


X . . . Sieťka sa nebude vykresloval 

C . . . Program po vykreslení priebehu čaká 
na stlačenie fubovolnej klávesy, čím 
sa obraz na obrazovke zastaví a je 
možné napr. presne odčítať amplitú- 
du, alebo urobit’ kópiu obrazovky. 

V . . . Program nečaká na stlačenie kláve- 
sy, takže obraz sa mění plynule, po- 
dobné ako na obyčajnom oscilosko- 
pe. 

B . . . Vzorkovanie bude prebiehať bez 
softwarovej synchronizacie, viď N. 

N . Synchronizacia priebehu vzorkova- 
nia prechodom signálu cez hodnotu 
nastavenu v základnom menu kláve- 
sou C. Program čaká, kým signál 
nedosiahne nastavené hodnotu, zisti 
či priebeh rastie a ak áno, potom ho 
zobrazí. Tým sa dosiahne, že signál 
nebehá po obrazovke, ale vždy začí- 
ná v určitej hodnotě. Využiť sa dá 
tento režim hlavně pri periodických 
signáloch. 

M . . Tak isto, ako pri N, ale synchronizácia 
klesajúcim priebehom. 

W . . . Návrat do základného menu. 


P . . . Stlačením tejto klávesy počas zobra- 
zovaného režimu sa vykoná odskok 
na vlastný podprogram, ukončený in- 
štrukciou RET. Změnu adresy v zá- 
kladnom menu je vhodné urobiť len 
vtedy, ak je podprogram skutočne 
v památi, ináč hrozí zrútenie systému 
pri náhodnom stlačení P. Podpro- 
gram je třeba umiestiť nad adresu 
41500. 

Q . . . Po stlačení Q sa dá vrátiť do tohoto 
menu zo zobrazovacieho režimu. 

Program pracuje na principe navzorkova- 
nia signálu do památi tak, aby dížka vzorky 
zodpovedala danému časovému rozsahu. 
Preto každému rozsahu zodpovedá jeden 
z časovačích podprogramov F01 áž F680. 
Tieto zaisťujú pravidelné intervaly medzi 
jednotlivými vzorkami signálu. Touto časťou 
je limitovaná aj najvyššia frekvencia, ktorú je 
možné zobrazit, rešp. ešte odčítať na obra- 
zovke. Na obrázku je příklad signálu 1 5 kHz, 
ktorý je ešte rozlíšitefný. Po navzorkovaní 
256 hodnot z AD prevodnika do památi sú 
vzorky přepočítané z intervalu 9 až 255 do 
intervalu 0 až 191, aby ich bolo možné 
zobrazit na obrazovku Spectra. 

Program sa skládá z BASICu a strojového 
kódu. Neodporúčam robiť v ňom verké změ- 
ny, hlavně riadok 700 musí zostať presne tak 
ak je, tzn. vcelku, dodržať všetky čiarky 
a před riadkom 700 sa nesmie vyskytnut iný 
riadok s príkazom DATA. 

Strojový kód je písaný v assembleri, je 
odladěný systémom MRS. Odporúčam ne- 
robit v ňom žiadne změny, přeložit ho od 
adresy 40000, pretože je modifikovaný prí- 
kazmi POKE z BASICu. Takisto je třeba 
v assembleri přeložit aj inštrukcie NOP, kto- 
ré sa na prvý pohrad móžu zdát zbytočné. 
Pretože je výpis programu vytlačený malými 
písmenami, je třeba dát pozor pri přepisova- 
ní na záměnu písmena I s čislicou 1 . 



Technické předpoklady 

Je třeba použit’ osembitový A/D převod- 
ník, ktorý má automatický štart převo- 
du a vyrovnávaciu pamáť. Vhodný je napří- 
klad převodník zo zelenej přílohy ÁR Mikroe- 
lektronika 1988. Rychlost’ převodu by však 
mala byť menšia ako 5,7 i±s. Je daná naj- 
rýchlejším rozsahom a najrýchlejšou inštruk- 
ciou blokového přenosu s opakováním INIR. 
Pri použití prevodníka s menším počtom 
bitov ako 8 sa zbytočne zmenšuje rozlišova- 
cia schopnost osciloskopu a použitie napr. 
12 bitového převodníku s využitím jeho hor- 
ných 8 bitov je sice možné, avšak je zbytoč- 
ným luxusom vzhladom k rozlišovacím 
schopnostiam obrazovky Spectra. Citlivost’ 
osciloskopu je daná citlivosťou převodníku. 

Najvhodnejšie sú převodníky typu MDAC 
08, program nie je určený pre převodníky 
s multiplexovým BCD výstupem typu C520. 
Vhodné je, aby vstup převodníku bol bipolár- 
ny, vzhladom k potrebe sledovat’ nf signály. 

Na přiložených kópiách obrazovky sú na- 
snímané rožne priebehy v róznych časových 
rozsahoch. Je z nich vidieť příklad použitia 
synchronizácie priebehu prechodom cez “nu- 
lovú“ hodnotu, použitie sieťky, ako aj kvalita 
generátora ,,sinusového“ priebehu. 


Závěr 

Program osciloskop nebol určený ako 
náhrada skutočného osciloskopu, ktorému 
sa svojimi parametrami nemóže rovnať, ale 
iba ako poměrně užitočná pomócka pri na- 
. stavovaní jednoduchých elektrotechnických 
zariadení, na rožne orientačně sledovanie 
analogových aj digitálnych signálov a ako 
náhrada za logickú sondu. 


Výpis 1. Program v BASICu (928-V1) 


10 CLEAR 39999: BORDER 1: RAPE 
R l: INK 7: CLS : LOAD ~"CQDE 40 
000: CLS : BORDER 0 

20 LET ash=40472 : LET sh=127: 
LET ash2=40478: LET ars=127: LET 
rs=130: LET vp=63: LET op=31 

40 GO TO 600 

50 PRINT AT 3 f 0 5 " 1-ZMENA ADRES 
Y RIADIACEHO SLOVA PRE INTERFA 
CE" 

60 PRINT AT 5 f 0 5 "2-ZMENA RIADI 
ACEHO SLOVA PRE IN- TERFACE" 

70 PRINT AT 8 f 9 5 "OUT < "J ars ? " ) f 
”! rs!" 

80 PRINT AT 10 f 0 f "3- ZMĚN A ADRE 
BY VSTUPNÉHO PORTU PŘEVODNÍKU 

(A/D PŘEVOD)" 

90 PRINT AT 13f13f"IN("5 PEEK 4 
07075") 

100 PRINT AT 15 f 0 5 " 4-ZMENA ADRE 
SY VÝSTUPNÉHO PORTU PŘEVODNÍKU 

L D/A PŘEVOD NIE JE NUTNÝ 3 

110 PRINT AT 18 f 13 5 "OUT ( " 5 op 5 " ) 

120 PRINT AT 21 f 0 5 BRIGHT 15"R- 


NAVRAŤ K 

MENU" 




130 IF 

INKEY$="1" 

THEN 

INPUT 

a 

rs: GO TO 50 




140 IF 

INKEY$= : "2" 

THEN 

INPUT 

r 

s: GO TO 

50 




150 IF 

INKEY$="3" 

THEN 

INPUT 

v 

p: POKE 

40707 f vp : 

GO TO 

50 


160 IF 

INKEY*="4" 

THEN 

INPUT 

o 


p: GO TO 50 

170 IF INKEY$="R" OR INKEY$="r " 
THEN GO TO 460 
180 GO TO 130 

400 INPUT "INK "5A: IF A<0 OR A 
>7 THEN GO TO 400 
410 INK A 

420 INPUT "PAPER "5 A: IF A<0 OR 
A > 7 THEN GO TO 420 
430 PAPER A 


440 INPUT "BORDER "? A: IF A<0 O 
R A>7 THEN GO TO 440 
450 BORDER A 
460 CLS 

600 PRINT AT 6 f 1 5 "F-ZMENA FARIE 
B "ff" z-ZMENA HODNOT PRE INTERFA 
CE"”'" P-ZMENA ADRESY VLASTNEHO" 
'" PODPROGRAMU"”'" C-ZMENA SYN 
CHRONIZACNEJ HODNOTY"" BRIGHT 1 
5" S-START OSCILOSKOPU 

610 IF INKEY$-"F~ OR INKEY*="f" 
THEN GO TO 400 

620 IF INKEY$="z" OR INKEY$="Z" 
THEN CLS : GO TO 50 
630 IF INKEY$~"S" OR INKEY$="s" 
THEN GO TO 700 

640 IF INKEY$="C" OR INKEY*="c~ 
THEN INPUT "nova hodnota "5sh: 
POKE ashFsh: POKE ash2Fsh 
650 IF INKEY$="P" OR INKEY$="p" 
THEN INPUT "adresa nesmi© byt 
z intervalu 40000-41500 " 5 p p p : 

POKE 40372 f INT (ppp/256) : POKE 
4037lFppp~256»INT (ppp/256): 00 
TO 610 

660 GO TO 610 

700 DATA "1- 2 s/dielF2- 200 

ms/dielF3- 40 ms/diel f 4- 8 m 

s/dielřS- 2 ms/diel f6- 0.8 ms/ 
dieÍF7- 0.4 ms/diel f8- 0.3 Ms/d i 
elvZ-so sietkourX-bez sietkyFC~c 
ďka na stlačen ie k I avesy f po vy 
kresleni řV-necaka na stlačeni© k 
lavesyFB-vzorkovan i© bez synchro 
nizac ie t N-synchron izac i a přechod 
dm^gez f nastavenu hodnotu stupa 
juc ímf pr iebehom f M--synchr on|.zac 
ia klesajucimF pr iebchom f W- ri*avr 
at do hlavneho menu v P-vystup na 
vlastny podprogramiQ-navrat zo 'z 
obr azovac ieho f režimu do tohoto 
menu f ♦HEAVYSOFT 1988" 

710 OUT arsFrs: RANDOMIZE USR 4 
0000 

720 00 TO 460 

1000 SAVÉ "OSCILOSKOP" LINE 10 



4-0 ras- /'• 

■i e L 



















































Obr. 1. Ukázky vytisknutých průběhů 
(928-1) 
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12 
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Výpis 2. Rutina ve strojovém kódu (928-V2) 


60bb 
60bb 
9c 40 
9c 40 
9c 40 
9c40 f 3 
9c41 cd8a9d 
9c44 cda09d 
9e47 cd419d 
9c4a e5 
9c4b ddel 


*a 

org 40000 

jvstupna rutinařtlac menu 
5modifikacia programu 
ose di 

call clear 
call vstup 
call data 
push hl 
pop i >< 



I 


I 


14 

9c4d cd559d 

scan 1 

call 

prnt 

110 

9d0f d5 


push 

de 

15 

9c50 cd059e 

scan 

cal 1 

kcys 

111 

9d 10 cdf 19d 


cal 1 

prep 

16 

9c53 cdlb2d 


cal 1 

* 2 d lb 

112 

9d 13 dl 


pop 

de 

17 

9c56 304b 


Ji* 

nc r vzor 

113 

9dl4 4a 


ld 

c rd 

18 

9c58 f e5a 


cp 

'Z' 

114 

9d 15 cdb022 


call 

* 22 b 0 

1? 

9c5a 2004 


jr 

nzrxx 

115 

9d 18 3c 


inc 

a 

<20 

9c5c af 


xor 

a 

116 

9d 19 47 


ld 

b i a 

21 

9c5d 32b69d 


ld 

(qridd) ra 

117 

9dla 3 g01 


ld 

a 1 1 

22 

9có0 f e58 

><>< 

cp 

’X’ 

118 

9dlc 0f 

1 op 

r rca 


23 

9c62 2005 


J»- 

nzicc 

119 

9d ld 10f d 


d jnz 

lop 

24 

9c64 3ec9 


ld 

a * *c9 

120 

9dlf ae 


xor 

(hl) 

25 

9c66 32b69d 


ld 

(qridd) ra 

121 

9d20 77 


ld 

(hl j >a 

26 

9c 69 f e43 

cc 

cp 


122 

9d21 g 1 


pop 

hl 

27 

9c 6 b 2004 


jr 

nz>vv 

123 

9d22 14 


inc 

d 

28 

9c6d af 


xor 

a 

124 

9d23 c 8 


ret 

z 

29 

9c6e 32049e 


ld 

(kcyp ) r a 

125 

9d24 23 


inc 

hl 

30 

%c71 f e56 

vv ' 

cp 

’K>> 

126 

9d25 18 g6 


Jí- 

dis 

31 

9c73 2005 


jr 

nzrbb 

127 

9d27 af 

prvý 

xor 

a 

32 

9c75 3ec9 


ld 

a r *c9 

128 

9d28 32069d 


ld 

(křes) ia 

33 

9c77 32049e 


ld 

(kcyp) »a 

129 

9d2b 32079d 


ld 

(kres+ 1 ) ta 

34 

9c7a f e42 

bb 

cp 

•B' 

130 

9d2c c9 


ret 


35 

9c7c 2005 


jr 

nzmn 

131 

9d2f 




36 

9c7g 3gc9 


ld 

a r ic9 

132 

9d2f cd069d 

zob r 

cal 1 

kres 

37 

9c80 32109e 


ld 

(syne) ra 

133 

9d32 1 1049f 


ld 

dc t vzor 2 

38 

9c83 f g4g 

nn 

cp 

’ N’ 

134 

9d35 2108a0 


ld 

hl r vzor 1 

39 

9c85 2009 


Jí- 

nzdim 

135 

9d38 010001 


ld 

bc 1 256 

40 

9c87 3 g38 


ld 

a t i 38 

136 

9d3b Gdb0 


ldir 


41 

9c89 321f 9 g 


ld 

(updo) r a 

137 

9d3d cd069d 


call 

kres 

42 

9c 8 c af 


xor 

a 

138 

9d40 c9 


ret 


43 

9c8d 32109e 


ld 

(syne) ra 

139 

9d41 




44 

9c. 90 f c4d 

MM 

cp 

' M ' 

140 

9d41 21d05c 

data 

ld 

hl r 23760 

45 

9c92 2009 


jr 

nztww 

141 

9d44 3ce4 

dtr 1 

ld 

a» 228 

46 

9c94 3 g30 


ld 

a » *30 

142 

9d46 23 

dtr 

inc 

hl 

47 

9c96 321f 9e 


ld 

(updo) ta 

143 

9d47 bc 


cp 

(hl) 

48 

9c99 af 


xor 

a 

144 . 

9d48 20f c 


jr 

nzrdtr 

49 

9c9a 32109G 


ld 

(syne ) » a 

145 

9d4a 23 


inc 

hl 

50 

9c9d f g57 

ww 

cp 


146 

9d4b 3e22 


ld 

ar'"' 

51 

9c9f 20af 


Jí- 

nziscan 

147 

9d4d be 


cp 

(hl) 

52 

9cal fb 


cí 


148 

9d4e 20f 4 


jr 

nzrdtrl 

53 

9ca2 c9 


ret 


149 

9d50 23 


inc 

hl 

54 

9ca3 




150 

9d51 222b9e 


ld 

(dtad) rhl 

55 

9ca3 

ť vyber 

casovacich podpr ogramov 

151 

9d54 c9 


ret 


56 

9ca3 

řvykrGslcniG sietky 

152 

9d55 




57 

9ca3 

í synchron izac ia vzorkovania 

153 

9d55 

írutina výpisu na scrccn 

58 

9ca3 

ř vzorkován íg 

154 

9d55 0600 

prnt 

ld 

b » 0 

59 

9ca3 f g30 

vzor 

cp 

tQt 

155 

9d57 0G00 

prnt 2 

ld 

c »0 

— « 60 

9ca5 28a9 


Jí* 

z t scan 

156 

9d59 dd7e00 

prntl 

ld 

ar (ix+ 0 ) 

61 

9ca7 f g39 


cp 

1 9 1 

157 

9d5c f e22 


cp 

r ~ r 

62 

9ca9 28a5 


jr 

z t scan 

158 

9d5G c 8 


ret 

Z 

63 

9cab f 5 


push 

af 

159 

9d5f f g2c 


cp 

» r » 

64 

9cac cd8a9d 


call 

clcar 

160 

9d61 2005 


Jí- 

nzrpr int 

65 

9<^af fl 


pop 

af 

161 

9d63 04 


inc 

b / 

66 

9cb0 d631 


sub 

*31 

162 

9d64 dd23 


inc 

ix 

67 

9cb2 87 


add 

a r a 

163 

9d66 18cf 


Jí* 

prnt 2 

68 

9cb3 212d9a 


ld 

hl rftab 

164 

9d68 c5 

pr int 

push 

bc 

69 

9cb6 1600 


ld 

d r 0 

165 

9d69 11003c 


ld 

de r *3c00 

70 

9cb8 5f 


ld 

g t a 

166 

9d6c 87 


add 

ara 

71 

9c b 9 d5 


push 

dc 

167 

9d6d 6 f 


ld 

Ira 

72 

9cba 19 


add 

hl rde 

168 

9d6e 63 


ld 

h re 

73 

9cbb 5 g 


ld 

g p (hl) 

169 

9d6f 29 


add 

hl rhl 

. 74 

9cbc 23 


inc 

hl 

170 

9d70 29 


add 

hl rhl 

75 

9cbd 56 


ld 

d r (hl ) 

171 

9d71 19 


add 

hl rde 

76 

9cbc cd53c29c 


ld 

(cas+ 1 ) vde 

172 

9d72 cb 


GX 

derhl 

77 

9cc 2 dl 

« 

pop 

dc 

173 

9d73 78 


ld 

arb 

78 

9cc3 213d9c 


ld 

hl t ztab 

174 

9d74 42 


ld 

b rd 

79 

9cc6 19 


, add 

hl t dG 

175 

9d75 cd9G0e 


cal 1 

*0e9e 

80 

9cc7 5 g 


ld 

g t ( h 1 ) 

176 

9d78 50 


ld 

drb 

81 

9cc8 23 


inc 

hl 

177 

9d79 0600 


ld 

b r *00 

82 

9cc9 56 


ld 

d> (hl ) 

178 

9d7b 09 


add 

hl r bc 

83 

9cca cd53d39c 


ld 

(text+ 2 ) ?de 

179 

9d7c 0608 


ld 

br*08 

84 

9ccg cdb69d 


cal 1 

gr idd 

180 

9d7e la 

sic 

ld 

ar (de) 

85 

9cd 1 dd21999c 

text 

ld 

ix i zf 680 

181 

9d7f 77 


ld 

(hl) ra 

86 

9cd5 cd559d 


cal 1 

prnt 

182 

9d80 lc 


inc 

G 

87 

9cd8 2108a0 

samp 

ld 

hl ivHor 1 

183 

9d81 24 


inc 

h 

88 

9cdb 013f 00 

por t3 

ld 

bc t *3f 

184 

9d82 10f a 


d jnz 

sic 

89 

Vede cdl09e 


call 

syne 

185 

9d84 cl 


pop 

bc 

90 

9cg 1 cda59c 

cas 

call 

f 680 

186 

9d85 0c 


inc 

c 

91 

9cc4 cd2f 9d 


cal 1 

zobr 

187 

9d86 dd23 


inc 

ix 

92 

9cc7 cd049c 


cal 1 

kcyp 

188 

9d88 18cf 


Jí- 

prntl 

93 

9cea cd229e 


call 

qpr gss 

189 

9d8a 




94 

9ccd 38 g9 


Jí- 

c t samp 

190 

9d8a 210040 

c 1 car 

ld 

hl r *4000 

95 

9ccf cdad9d 


cal 1 

cop 

191 

9d8d 110140 


ld 

der*4001 

96 

9cf 2 cd8a9d 


cal 1 

clcar 

192 

9d90 010018 


ld 

bc r*1800 

97 

9cf 5 3cl8 


ld 

a r *18 

193 

9d93 75 


ld 

(hl) r 1 

98 

9c f 7 32069d 


ld 

(kres) ra 

194 

9d94 edb0 


ldir 


99 

9cf a 3el f 


ld 

a r * 1 f 

195 

9d96 3a8d5c 


ld 

ar (*5c8d ) 

100 

9cf c 32079d 


ld 

(kres+ 1 ) ra 

196 

9d99 77 


ld 

(hl) ra 

101 

9cf f dd2a2b9c 


ld 

ixi> (dtad) 

197 

9d9a 01ff02 


ld 

bcr* 02 ff 

102 

9d03 c34d9c 


JP 

scanl 

198 

9d9d Gdb0 


ldir 


103 

9d06 




199 

9d9f c9 


ret 


104 

9d06 

ř vykreslenie priebehu 

200 

9da0 




105 

9d06 181f 

křes 

jr 

pr vy 

201 

9da0 3a039f 

vstup 

ld 

ar (brana) 

106 

9d08 21049f 


ld 

hl r vzor 2 

202 

9da3 32169c 


ld 

(partl+ 1 ) ra 

107 

9d0b 1600 


ld 

d r 0 

203 

9daó 321c9e 


ld 

(port 2 +l) ra 

108 

9d0d 7 g 

dis 

ld 

av (hl) 

204 

9da9 \32dc9c 


ld 

(port3+l) ra 

CQ 109 

9d0c c5 


push 

hl 

205 

9dac c9 


ret 








206 

9dad 




299 

9e4b 999e 


dw 

zf 680 

207 

9dad 3edf 

cop 

ld 

ar£df 

300 

9e4d 3220732f 

Zf01 

db 

”2 s/diel “ ’ 

208 

9daf dbfe 


in 

ar <254) 


6469656c 




209 

9dbl lf 


rra 



22 




210 

9db2 d2b59d 


JP 

nc robsl 

301 

9e56 32303020 

zf 1 

db 

’200 ms/diel 

211 

9db5 c9 

obsl 

ret 



6d732f 64 




212 

9db6 





69656c22 




213 

9db6 

t podprogram 

pře sietku 

302 

9e62 3430206d 

zf 5 

db 

”40 ms/diel" 

214 

9db6 00 

gr idd 

nop 



732f 6469 




215 

9db7 af 


xor 

a 


656c22 




216 

9db8 0e00 

pkr 

ld 

c r £00 

303 

9c6d 38206d73 

zf 25 

db 

'£( ws/diel"' 

217 

9dba f 5 


push 

af 


2f 646965 




218 

9dbb cdb022 


cal 1 

£ 22 b 0 


6 c 22 




219 

9dbe 36cc 


ld 

<hl ) r icc 

304 

9e77 32206d73 

zf 100 

db 

'2 Ms/diel"’ 

220 

9dc0 e5 


push 

hl 


2f 646965 




221 

9dcl dl 


pop 

de 


6 c 22 





9dc2 13 


inc 

de 

305 

9e81 302e3820 

zf 250 

db 

' 0.8 rrts/diel 

223 

9dc3 011f 00 


ld 

bcr£lf 


6d732f 64 




224 

9dc6 edb0 


ldir 



69656c22 




225 

9dc8 fl 


pop 

af 

306 

9e8d 302e3420 

zf 500 

db 

’0.4 Ms/diel 

226 

9dc9 c613 


add 

a. £13 


6d732f 64 




227 

9dcb fedl 


cp 

£d 1 


69656c22 




228 

9dcd 20e9 


JT 

nzrpkr 

307 

9g 99 302e3320 

zf 680 

db 

’0.3 Ms/diel 

229 

9dcf 0e00 


ld 

c r £00 


6d732f 64 




230 

9dd 1 3ebf 

tt 

ld 

a r £bf \ 


69656c22 




231 

9dd3 cb47 

sw 

bit 

0 r a \ 

308 

9ea5 

fcasovacic 

rutiny 

232 

9dd5 2810 


jr 

z t idr 

309 

9ea5 edb2 

f 680 

inir 


233 

9dd7 f 5 


push 

af 

310 

9ea7 c9 


ret 


234 

' 9dd8 c5 


push 

bc 

311 

9ea8 eda2 

f 500 

ini 


235 

9dd9 cdb022 


cal 1 

£ 22 b 0 

312 

9eaa 20fc 


jr 

nzi £f c 

236 

9ddc 3c 


inc 

a 

■ 313 

9eac c9 


ret 


237 

9ddd 47 


ld 

b t a 

314 

9ead eda2 

f 250 

ini 


238 

9dde 3e01 


ld 

a t £01 

315 

9eaf f 5 


push 

af 

239 

9de0 0f 

lpi 

rr ca 


316 

9eb0 c600 


add 

ar £00 

240 

9del 10f d 


d jnz 

lpi 

317 

9eb2 fl 


pop 

af 

241 

9de3 ae 


xor 

(hl > 

318 

9eb3 20f 8 


jr 

nzr£f 8 

040 

9de4 77 


ld 

(hl) >a 

319 

9eb5 c9 


ret 


243 

9de5 cl 


pop 

bc 

320 

9eb6 eda2 

f 100 

ini 


24f4 

9de6 fl 


pop 

af 

321 

9eb8 f 5 


push 

af 

245 

9de7 3d 

idr 

dec 

a 

322 

9eb9 c5 


push 

bc 

246 

9de8 20e9 


jr 

nzrsn 

323 

9eba 0605 


ld 

br£05 

247 

9dea 3e33 


ld 

a t £33 

324 

9ebc 10fe 


d jnz 

£f e 

248 

9dec 89 


adc . 

a»c 

325 

9ebe cl 


pop 

bc 

249 

9ded d 8 


ret 

c 

326 

9ebf fl 


pop 

af 

250 

9dee 4f 


ld 

c 1 a 

327 

9ec0 20f 4 


jr 

nzr£f 4 

251 

9def 18e0 


jr 

tt 

328 

9ec2 c9 


ret 


252 

9df 1 

• 



329 

9ec3 eda2 

f 25 

ini 


~ 253 

9df 1 

řrutina nasobenia 3/4 

330 

9ec5 f5 


push 

af 

254 

9df 1 2600 

prep 

ld 

h 1 £00 

331 

9ec6 c5 


push 

bc 

255 

9df 3 6 f 


ld 

1 v a 

332 

9ec7 0625 


ld 

b r £25 

256 

9df 4 54 


ld 

d t h 

333 

9ec9 10f e 


d jnz 

£f e 

257 

9df 5 5d 


ld 

e r 1 

334 

9ecb cl 


pop 

bc 

258 

9df 6 29 


add 

hl >hl 

335 

9 ecc fl 


pop 

af 

259 

9df 7 19 


add 

hl » de 

336 

9ccd 20f4 


J r 

nz r £f 4 

260 

9df 8 cb3c 


srl 

h 

337 

9ecf c9 


ret 


261 

9df a cbld 


rr 

1 

338 

9ed0 eda2 

f 5 

ini 


262 

9dfc cb3c 


srl 

h 

339 

9ed2 f 5 


push 

af 

263 

9dfe cbld 


r r 

1 

340 

9ed3 c5 


push 

bc 

264 

9e00 3ebf 


ld 

a r £bf 

341 

9ed4 06c d 


ld 

b r £cd 

265 

9e02 95 


sub 

1 

342 

9ed6 10f e 


d jnz 

£f e 

266 

9e03 c9 


ret 


343 

9ed8 cl 


pop 

b c 

267 

9e04 




344 

9ed9 fl 


pop 

af 

268 

9e04 

ř vstup 

z klávesnice 

345 

9eda 20f4 


jr 

n Z r £f 4 

269 

9e04 00 

keyp 

nop 


346 

9edc c9 


ret 


2>0 

9g 05 cd8e02 

keys 

call 

£028e 

347 

9edd eda2 

f 1 

ini 


271 

9e08 20f b 


jr 

nzrkeys 

348 

9edf f 5 


push 

af 

27*5 

9e0a cdle03 


call 

£031e 

349 

9ce0 c5 


push 

bc 

273 

9e0d 30f 6 


jr 

nc ?kcys 

350 

9eel 0600 


ld 

t) r £00 

274 , 

9e0f c9 


ret 


351 

9ee3 10f e 


d jnz 

£f e 

275 

9el0 

5 synchron izac ia 

352 

9ee5 10fe 


d j n z 

£f r 

276 

9el0 00 

syne 

nop 


353 

9ee7 10fe 


d jnz 

£f e 

277 

9ell cd229e 


cal 1 

qpress 

354 

9ee9 10fe 


d jn z 

£f e 

278 

9el4 d0 


ret 

nc 

355 

9eeb cl 


pop 

bc 

279 

9el5 db3f 

por tl 

in 

ar (63) 

356 

9eec fl 


pop 

af 

280 

9g 17 f e7f 

synci 

cp 

127 

357 

9eed 20ee 


jr 

nz r £ee 

281 

9g 19 20f 5 


jr 

rtzi syne 

358 

9ecf c9 


ret 


282 

9clb db3f 

por t2 

in 

a» (63) 

359 

9ef0 eda2 

f 01 

ini 


283 

9eld f e7f 


cp 

127 

360 

9ef 2 f ( 5 


push 

af 

284 

9elf 38cf 

updo 

jr 

c t syne 

361 

9ef 3 d5 


p ush 

bc 

285 

9c21 c9 


ret 


362 

9ef 4 0629 


ld 

b r *29 

286 

9c22 




363 

9ef 6 c5 


Dush bc 

287 

9g 22 cdad9d 

qpr ess 

cal 1 

cop 

364 

9ef 7 0600 


ld 

b r £00 

288 

9g 25 3cf b 


ld 

a»£f b 

365 

9ef 9 10f e 


d jnz 

£f e 

289 

9g 27 dbfe 


in 

ar (254) 

366 

9ef b cl 


pop 

bc 

290 

9g 29 lf 


rra 


367 

9ef c 10f 8 


d jnz 

£f 8 

291 

9e2a c9 


ret 


368 

9ef e cl 


pop 

bc 

292 

9c2b 

5 tabul k 

y 


369 

9eff fl 


pop 

af 

293 

9e2b 0000 

dtad 

db 

0 r 0 

370 

9f 00 20ee 


jr 

n z r £ e e 

294 

9e2d f 09edď9e 

ftcib 

dw 

f01rf lrf5 

371 

9f 02 c9 


ret 



d09e 




372 

9f 03 fe 

hrana 

db 

254 

295 

9e33 c39eb69e 


dw 

f 25rf 100 

373 

9f 04 

ř buf f er 

■ pre 

vzorky 

296 

9e 37 ad9ea89e 


dw 

f250rf500rf680 

374 

9f 04 

vzor2 

ds 

260 


a59e 




375 

a008 

vzor 1 

ds 

260 

297 

9e3d 4d9c569e 

ztab 

dw 

Zf01rzfl»zf5rzf25 

376 

a 10c 





629eód9e 




377 

a 10c 


end 


298 

9g 45 779e819e 


dw 

zf 100rzf250vzf500 







8d9e 
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V poslední době se začal mezi vlastníky domácích počítačů rozšiřovat zapisovač jako periferní zařízení. 
Rozlišovací schopnost běžných zapisovačů je podstatně větší než rozlišení na obrazovce počítače. Většina 
kreslicích programů pro ZX Spectrum však provádí kresbu přímo na obrazovku a nevytváří přitom žádný 
záznam o vzniku kresby. V tomto případě pak slouží zapisovač pouze jako pomalejší tiskárna a jeho hlavní 
přednosti nejsou využity. Aby bylo možno plně využít velkou rozlišovací schopnost zapisovače, je nutné, 
aby program zaznamenával kreslené objekty v tzv. vektorové formě do paměti (tj. zaznamenával pouze 
souřadnice koncových bodů a některé další důležité parametry s co největší přesností, podle kterých lze 
kresbu zpětné zrekonstruovat. Výsledný vektorový soubor lze pak vykreslit na souřadnicovém zapisovači 
s maximální možnou přesností. 


+ 



1. Základní filozofie 
programu GEK+ 

Kreslicí plocha programu GEK+ má roz- 
měr 20000x20000 základních jednotek (1 
základní jednotka = 1 pixel při zobrazení 
ZOOM 1 :1 viz dále). Na této pracovní ploše 
lze umisťovat základní objekty - čáry (LINE), 
kruhové oblouky (ARC), a text o maximální 
délce 5 znaků (TEXT). 

Jedna kreslicí plocha se nazývá blok. Lze 
otevřít (OPEN) až 60 nezávislých kreslicích 
ploch - bloků. Každý otevřený blok je v pod- 
statě dalším základním objektem, který lze 
tedy stejně jako čáru, text, oblouk umístit 
kamkoliv do jiného bloku. Umísťování bloků 
do sebe je omezeno pouze tak, aby nevznik- 
la rekurze - tedy nelze vložit blok do sebe 
samého. 

Obrazovka počítače je při běhu programu 
GEK+ rozdělena na tři samostatné části. 
V pravé části je trvale zobrazena nabídka 
- menu přístupných příkazů. Ve spodní části 
obrazovky je tzv. dialogová řádka, na které 
program zobrazuje jednoduchou nápovědu 
podle okamžité situace. Na zbytku obrazov- 
ky je zobrazen výřez z kreslicí plochy právě 
aktivního bloku s ohledem na zvolené zvět- 
šení (ZOOM) a posun (PAN). 


2. Ovládání programu 

Program se ovládá pomocí osmi tlačítek 
klávesnice. Čtyři pro pohyb kurzoru (Q naho- 
ru, A dolů, O vlevo, P vpravo). Čtyři tlačítka 
Z, X, M, N slouží pro výběr variant. 

Po nahrání programu se zobrazí kurzor 
v podobě křížku uprostřed obrazovky. Při 
pohybu se jeho rychlost po skocích postup- 
ně zvyšuje. Po dosažení okraje obrazovky 
se kurzor zastaví. V horní části obrazovky se 
průběžně tiskne x-ová a y-ová vzdálenost 
kurzoru od bodu o souřadnicích 0,0 v mili- 
metrech (1 základní jednotka = 0,125 mm, 
což odpovídá nejmenšímu kroku zapisova- 
če). 

Dialogová řádka je pomyslně rozdělena 
na čtyři části; každá část odpovídá jednomu 
tlačítku pro výběr varianty. Zleva to tedy jsou 
Z, X, N a M. Po spuštění programu tato řádka 
vypadá takto: 

ERASE MENU TEXT LINE 

Tlačítkem Z tedy vyvoláme funkci ERASE , 
tlačítkem N funkci TEXT a tlačítkem M funkci 
LINE. Stiskneme-li klávesu X, dostaneme se 
do menu. V dialogové řádce se objeví tato 
zpráva: 

SELECT CREATE DEFINE SELECT 


Nyní můžeme posunovat barevným kur- 
zorem v pravé části obrazovky po jednotli- 
vých příkazech menu pomocí kláves Q, 
A - pomalý posun a O, P - posun po 
stránkách. Vybranou funkci potvrdíme klá- 
vesou Z nebo M. Pomocí klávesy X můžeme 
kdykoliv opustit toto menu bez provedení 
příkazu. Při častém užívání některých funkcí 
by stálé hledání v menu zbytečně zpomalo- 
valo práci, proto je možné předdefinovat tři 
funkce na tlačítka Z, N a M. Tyto funkce jsou 
pak kdykoliv přístupné stiskem příslušného 
tlačítka bez nutnosti jejich výběru z menu. 
Postup je následující: nastavíme kurzor na 
vybranou funkci a stiskneme N (- DEFINE), 
potom stiskneme jednu z kláves Z, N nebo 
M. Nyní již je vybraná funkce přístupná přes 
vybranou klávesu přímo bez volání menu. 
Jméno definované funkce se také zobrazí 
v příslušné kolonce dialogového řádku. 


3. Operace s bloky 

3.1 OPEN 

Po spuštění programu není otevřen žádný 
blok - neexistuje tedy kreslicí plocha, do 
které bychom mohli umisťovat objekty. Pro 
otevření nové kreslicí plochy slouží funkce 
OPEN. Aktivujeme-li tuto funkci, program 
nejprve kontroluje, zda lze otevřít další blok 
(počet bloků je maximálně 60). V případě, že 
je otevřeno již 60 bloků, program ohlásí 
chybu „Too many blocks". Je-li vše v pořád- 
ku, program požaduje zadání šestiznakové- 
ho jména otevíraného bloku. Po napsání 
jména stiskneme ENTER. V této chvíli je 
nový blok otevřen a jeho jméno se stalo 
součástí menu. 

3.2 CURR 

V jednom okamžiku lze samozřejmě kres- 
lit pouze do jednoho tzv. aktivního bloku. 
Chceme-li kreslit či provádět změny v jiném 
již otevřeném bloku, vyvoláme funkci CURR. 
Nyní se v pravé části obrazovky zobrazí 
pouze poslední část menu se jmény otevře- 
ných bloků a v dialogovém řádku se vypíše 
nápověda: 

Backgr. Current block 
Vybereme blok, který se má stát aktivním 
blokem a potvrdíme volbu klávesou X, 
N nebo M. Stiskneme-li klávesu Z, vybraný 
blok se vykreslí méně výrazně jako pozadí 
pod následně vybraný aktivní blok. Toto je 
výhodné např. při kreslení dvoustranných 
desek plošných spojů apod. 

Pozn. : 

I. Blok otevřený funkcí OPEN se zároveň 
stává i aktivním blokem a taktéž základním 
objektem (viz kapitola 2). 





II. Vybereme-li kurzorem prázdný řádek 
v nabídce, program se chová tak, jako by- 
chom vybrali funkci popř. blok, jehož jméno 
je zobrazené první. 


4. Kreslení objektů 

V programu GEK+ existují čtyři druhy 
•základních objektu. Jsou to čáry (příkaz 
LINE), kruhové oblouky (ARC), text (TEXT). 
Každý otevřený blok se jeví z hlediska dru- 
hých bloků také jako objekt - tj. lze ho umístit 
na libovolné místo jiného bloku a to i několi- 
krát. 

4.1 Čáry - příkaz LINE 

Kurzor umístíme do počátečního bodu 
čáry a vyvoláme funkci LINE, v dialogovém 
řádku se objeví zpráva To point, kurzor tedy 
nastavíme na koncový bod čáry a potvrdíme 
(klávesy Z, X, N, M). Na obrazovce se na- 
kreslí rovný úsek čáry specifikované tlouš- 
ťky (viz kapitola 5.4), v dialogové řádce se 
zobrazí: 

END To point 

Klávesou Z tedy můžeme funkci LINE opustit 
nebo lze nastavit kurzor do dalšího bodu 
a potvrdit (X, N nebo M). Tím je možné kreslit 
další úseky lomené čáry. 

4.2 Kruhové oblouky - příkaz ARC 

Vyvoláme funkci ARC, v dialogové řádce 
se objeví: Center point, nastavíme tedy kur- 
zor na střed kruhového oblouku a potvrdíme 
(Z, X, N nebo M), v dialogové řádce se 
objeví: Start point, nastavíme kurzor na po- 
čáteční bod oblouku a potvrdíme. Nyní pro- 
gram požaduje zadání úhlu opsaného oblou- 
kem ve stupních (kladný údaj - oblouk bude 
—pokračovat od počátečního bodu proti směru 
hodinových ručiček, záporný údaj - po smě- 
ru hodinových ručiček). Zadaný číselný údaj 
potvrdíme stiskem klávesy ENTER. 

4.3 Text příkaz TEXT 

Kurzor nastavíme do bodu, kde se má 
nacházet levý dolní roh řádky textu. Vyvolá- 
me funkci TEXT. Program požaduje zadání 
textového řetězce o délce právě 5 znaků. 
Pokud je text kratší, je nutné jej doplnit 
mezerami ! ! Text potvrdíme ENTER. Nyní 
zadáme výšku textu v milimetrech a opět 
potvrdíme ENTER. Pro ušetření místa v pa- 
měti a pro zrychlení programu se na obra- 
zovce nevypíše text, ale pouze rámeček, 
který respektuje délku a rozměry textu. 

4.4 Vkládání bloků 

Umístíme kurzor na místo, kde se má 
nacházet bod o souřadnicích 0,0 ve vkláda- 
ném bloku. Nyní v menu nastavíme kurzor 
na jméno bloku, jež chceme vložit do právě 
aktivního bloku a potvrdíme stejně jako ja- 
koukoliv jinou funkci (Z nebo M). 

Pozn. : 

I. Jméno bloku lze samozřejmé stejné jako 
jinou funkci předdefinovat na klávesy Z, 
N nebo M. 

II. Program nepřipouští rekurzivní vkládání 
bloků do sebe. Nelze tedy vložit blok 1 do 
bloku 1 - tomu program zabrání, ale je-li blok 
1 vložen do bloku 2 a dojde k pokusu o vlože- 
ní bloku 2 do bloku 1 , program to nerozpozná 
a havaruje ! ! 


5. Opravy výkresu 

I při nejpečlivější práci se můžeme zmýlit. 
Pro opravy výkresu slouží v programu 
GEK+ tři funkce: vymazávání (ERASE), po- 
sun (MOVE), a kopírování (COPY). 


5.1 Vymazávání - příkaz ERASE 

Touto funkcí lze vymazat všechny objekty, 
které alespoň částečně zasahují do defino- 
vané obdélníkové oblasti. Pokud je do právě 
aktivního bloku vložen jiný blok, je tento 
chápán jako jediný objekt, tedy - zasahuje-li 
do vymezené oblasti alespoň jeden objekt 
z vloženého bloku, bude celý tento vložený 
blok vymazán. Po vyvolání funkce ERASE 
označíme nejprve levý dolní roh oblasti, kte- 
rou chceme vymazat. Potom označíme pra- 
vý horní roh této oblasti. ,Po potvrzení obou 
bodů program jakoby ,,v duchu" musí na- 
kreslit znova všechny objekty a vybrané 
odstranit z paměti. Zdánlivě se chvilku nic 
neděje. Když je program hotov, vymaže 
obrazovku a nakreslí znovu aktivní blok již 
bez vymazaných objektů. Pozor! V případě 
složité kresby může být tato činnost velmi 
časově náročná. 

Pozn.: Při znovuvykreslení aktivního bloku 
funkcí ERASE se již nevykreslí případné 
pozadí (viz kapitola 3. 2). 

5.2 Přesun MOVE 

Tato funkce umožňuje přesunout výřez 
právě aktivního bloku na jiné místo tohoto 
bloku. Postup je obdobný jako u fukce ERA- 
SE. Po zadání přesouvané oblasti program 
chvíli „přemýšlí", poté jsme dotázáni na 
polohu bodu, do kterého se přesune původ- 
ně označený levý dolní roh přesouvané ob- 
lasti. Další činnost programu je obdobná 
funkci ERASE. 

Pozn.: viz 5.1 

5.3 Kopírování COPY 

Tato funkce okopíruje objekty z definova- 
né oblasti na jiné místo. Postup je obdobný 
jako u funkce MOVE. 

5.4 Příkaz LINE TYPE (L.'TYPE) 

Umožňuje zadat počet paralelně jdoucích 
čar a jejich vzdálenost, které se vykreslí při 
použití LINE nebo ARC. Pomocí tohoto pří- 
kazu tedy lze kreslit různé tlusté čáry. 

Nejprve zadáme počet paralelně jdoucích 
čar (musí být větší nebo roven jedné) a po- 
tom vzdálenost mezi jednotlivými čarami 
v základních jednotkách (1 základní jednot- 
ka = 1 pixel při zobrazení ZOOM 1:1 viz 
níže). 

Definovaný typ čáry platí až do dalšího 
předefinování. Po nahrání programu je auto- 
maticky nastaven typ: počet čar = 1 , vzdále- 
nost = 0 (pokud je počet čar roven jedné, , 
nemá údaj vzdálenosti žádný význam). 

6. Skupina příkazů 
pro řízení zobrazování 

Protože kreslicí plocha programu GEK+ 
je v porovnání s obrazovkou počítače daleko 
větší, není vždy možné zobrazit na obrazov- 
ce celý výkres s dostatečnou přesností. Na 
obrazovce je vidět pouze výřez okolí defino- 
vaného bodu kreslicí plochy (po spuštění je 
to okolí bodu 0,0) v definovaném zmenšení. 
Pomocí funkce ZOOM je možné měnit 
zmenšení kresby, funkcí PAN lze definovat 
bod, jehož okolí chceme zobrazovat. 

6.1 Příkaz ZOOM 

Umožňuje měnit měřítko zobrazení na 
obrazovce. Souřadnice objektů jsou v pamě- 
ti počítače uloženy s konečnou přesností. 
Zadáme-li měřítko 1:1, bude-Wzdálenost 
dvou sousedních pixelů na obrazovce záro- 
veň nejmenší možnou vzdáleností, kterou 
může program GEK+ rozlišit. Tato vzdále- 
nost také souhlasí s rozlišením zapisovače, 
které je 0,125 mm. Navývá se základní jed- 
notka. 

Po vyvolání příkazu ZOOM se v dialogové 
řádce zobrazí výzva: Scale 1: a program 
čeká na zadání čísla z intervalu 1 až 99 


včetně, které říká, kolik základních jednotek 
připadne na jeden pixel. Jsou povolena i de- 
setinná čísla. Po zadání hodnoty program 
znovuvykreslí výkres v zadaném měřítku. 

6.2 Příkaz PAN 

Na obrazovce je zobrazena část kreslicí 
plochy v okolí bodu 0,0. Chceme-li pracovat 
na jiné části výkresu, která je momentálně 
mimo rámec obrazovky, použijeme příkaz 
PAN. Po jeho vyvolání program vyžaduje 
zadání souřadnic bodu, který má být ve 
středu obrazovky. Po zadání souřadnic pro- 
gram smaže obrazovku a znovuvykreslí oko- 
lí definovaného bodu. Při kreslení se samo- 
zřejmě respektuje dříve zadané zmenšení. 

7. Příkazy pro spolupráci 
s magnetofonem 

7.1 SAVÉ 

Pomocí tohoto příkazu je možno uschovat 
na magnetofonový pásek jeden či několik 
bloků. 

Po vyvolání tohoto příkazu program nej- 
prve požaduje zadání prvního nahrávaného 
bloku. V nabídce tedy vybereme kurzorem 
první blok, který chceme nahrát a potvrdíme 
klávesou Z, X, N nebo M. Stejným způsobem 
označíme i poslední nahrávaný blok. Nyní 
program požaduje zadání jména nahrávky. 
Tento název musí mít přesně 5 znaků! Po 
odeslání jména (ENTER) spustíme magne- 
tofon. Nahrají se postupně tři soubory, které 
nesou všechny potřebné informace o ozna- 
čených blocích. 

7.2 Příkaz LOAD 

Pomocí tohoto příkazu lze nahrát do pa- 
měti počítače bloky dříve uchované příka- 
zem SAVÉ. Po vyvolání příkazu LOAD zadá- 
me pětiznakové jméno, které jsme použili při 
ukládání bloků na pásek pomocí SAVÉ. Poté 
spustíme magnetofon. Program automatic- 
ky řídí nahrání všech tří částí záznamu. 
Nahraný blok (bloky) se připojí za již otevře- 
né bloky. Jestliže by při připojování bloků 
příkazem LOAD hrozilo překročení vymeze- 
né kapacity paměti, vypíše se hlášení „No 
room for filé " a volba je zrušena. 

8. Další důležité informace 

8.1 Zatímco u klasických kreslicích pro- 
gramů je omezena pracovní plocha počtem 
zobrazitelných bodů na obrazovce, u pro- 
gramu GEK+ je kreslicí plocha prakticky 
neomezená (20000x20000 základních jed- 
notek odpovídá přibližně rozměru výkresu 
2,5 x 2,5 metrů při rozlišení 0,125 milimetrů), 
je však omezen celkový počet objektů, které 
je možno do kreslicí plochy (kreslicích ploch) 
umístit. Pro záznam objektů je vymezeno 
přibližně 8 kB operační paměti, což odpoví- 
dá přibližně 1 500 úsekům rovných čar či 700 
kruhovým obloukům. Pokud se právě zadá- 
vaný objekt již nevejde do paměti, program 
vypíše zprávu ,, Memory full". Objekt se sice 
nakreslí na obrazovku, ale do paměti se již 
nezaznamená. 

8 . 2 . Vložíme-li blok jako objekt do jiného 
bloku, nezaznamenává se do paměti jméno 
tohoto bloku, ale pouze jeho pořadové číslo. 
To může ve spojení s příkazy SAVÉ a LOAD 
činit určité potíže. 

Příklad: 

Mějme nahraný na pásce soubor s informa- 
cemi o těchto třech blocích: 

1 . CTVER obsahuje čtverec vytvořený ze 

čtyř úseků rovné čáry, 

2. KOLO obsahuje kruh vytvořený příka- 

zem ARC, 

3. CTVK obsahuje vnořené bloky 

CTVER. a KOLO. 


Po nahrání programu GEK+ otevřeme pří- 
kazem OPEN první blok a nazveme jej KŘÍ- 
ŽEK, bude obsahovat např. křížek složený 
ze dvou rovných čar. Nyní použijeme příkaz 
LOAD a přihrajeme výše uvedený soubor 
bloků. Hlavní menu potom může vypadat 
například takto: 


KRIZEK 

CTVER 

KOLO 

CTVK 

Podíváme-li se nyní příkazem CURR na 
bloky KRIZEK, CTVER. a KOLO, jsou v po- 
řádku. Podíváme-li se však na blok CTVK, 
vidíme křížek a čtverec, ač zde byl původně 
čtverec a kruh. Blok CTVK obsahuje první 
a druhý blok - původně to byly bloky CTVER. 
a KOLO, nyní je však první blok KRIZEK 
a druhý CTVER. a tak se také zobrazí. 

9. Popis vnitřní struktury 
programu 

Zdrojový text programu GEK+ byl napsán 
v jazyce Pascal a přeložen kompilátorem 
hpl 1 3, což je upravená verze kompilátoru 
HP4T1 .6 fy HiSoft doplněná o některé grafic- 
ké procedury. 

Program lze pro zjednodušení rozdělit na 
několik částí: blok procedur pro ovládání 
datového souboru s uloženými objekty, blok 
funkcí pro kreslení objektů na obrazovku, 
blok procedur, které provádějí uživatelem 
vybrané funkce, část, která řídí komunikaci 
s uživatelem (ovládání menu, kurzoru atd.) 
a nakonec část programu, která řídí součin- 
nost všech těchto částí. 

Funkce pro kreslení objektů: 

LINETL vykreslí čáru dle zadaných pa- 
rametrů a platného měřítka 
a posunutí. Výstupem funkce 
je log. hodnota typu Boolean, 
která říká, zda nakreslená čára 
zasahuje do definovatelného 
okénka (používá se při MOVE, 
COPY a ERASE). 

ARCKRES kreslení kruhového oblouku 
podle zadaného středu, počát- 
ku, opsaného úhlu a typu čáry. 
Ostatní viz LINETL. 

TEXTKRES kreslení rámečku namísto tex- 
tu. 

KRESLI kreslení všech objektů, které 
obsahuje parametry specifiko- 
vaný blok. Funkce rekurzivně 
volá sama sebe, je-li do kresle- 
ného bloku vložen další blok. 
Ostatní viz LINETL. 

Procedury pro ovládání datového souboru 

Protože použitý překladač neumožňuje 
vytvořit vyhovující strukturu dynamických 
proměnných pro ukládání údajů o kresle- 
ných objektech, bylo nutné vytvořit procedu- 
ry, které udržují speciální datové pole v pa- 
měti pro tyto objekty. Toto pole je tvořeno 
jednak samostatným úsekem paměti o délce 
asi 8 kB a dále skupinou ukazatelů na začát- 
ky jednotlivých podúseků v datovém poli. 
Struktura datového pole je na obr. 1 . 

Všechny ukazatele jsou soustředěny v poli 
UK, kromě toho jsou v tomto poli též uloženy 
údaje o počtu objektů v jednotlivých oblas- 
tech. Práci s informacemi o objektech umož- 
ňují tyto procedury a funkce: 

POCETPRVKU vrací počet objektů ulože- 
ných v specifikované ob- 
lasti. 


NPRVEK vydá n-tý prvek ze zadané 
oblasti. 

VLOŽ vloží prvek do zadané ob- 

N lasti. 

SMAŽ ' smaže vybraný prvek v za- 

dané oblasti. 

ZMĚN změní údaje u specifikova- 

ného prvku v zadané ob- 
lasti. 

Zadaná oblast - je to oblast, ve které jsou 
uloženy informace o objek- 
tech stejného typu. Tato 
oblast je definována čís- 
lem bloku a typem oblasti 
(LINE, ARC . . .), což jsou 
parametry každé procedu- 
ry. 

Komunikace s uživatelem 

Funkce CPRIK tato funkce řídí pohyb 
kurzoru, výběr z me- 
nu a předefinování 
uživatelských kláves. 
Vrací číslo příkazu, 
který byl vybrán uži- 
vatelem. 

Funkce POHYBKUR řídí pohyb kurzoru po 
obrazovce, přepočet 
souřadnic, zobrazo- 
vání souřadnic, oso- 
vého kříže apod. 
Vrací znak odpovída- 
jící stisknuté klávese 
(kromě Q, A, O a P). 

| 

Procedury provádějící příkazy vyvolané 
z menu uživatelem: PROPEN, PRCURR, 
PRERASE, PRMOVE, PRCOPY, PRLINE- 
TYPE, PRZOOM, PRPAN, PRSAVE, 
PRLOAD, PRLINE, PRARC, PRTEXT, 
PRBLOK. 

Řízení běhu programu 

Vlastní prováděcí program nejprve volá 
funkci CPRIK a podle čísla požadovaného 
příkazu vyvolá příslušnou proceduru (viz 
procedury provádějící příkazy . . .). Po ukon- 
čení vyvolané procedury se činnost opakuje. 

Programy GEK+ a ZCF jsou napsány 
v jazyce Pascal. Program GEK+ byl přelo- 
žen upraveným kompilátorem hpl 13 na po- 
čítači Spectrum 80 kB. Na Spectru 48 kB 
nelze program vzhledem k délce zdrojového 
textu a výsledného kódu přeložit. Program 
ZCF lze s jistými omezeními přeložit i v pa- 
měti 48 kB. Použitý kompilátor hpl 13 má 
zabudovány některé nestandardní procedu- 
ry, v které by bylo nutné při použití jiného 
překladače doprogramovat: 

AT(R,S:INTEGER) přesune pozici 

pro tisk na řádek 
R a sloupec S. 

PLOT(X,Y,A:INTEGER) vytiskne bod 
o souřadnicích 
X a Y, parametr 
A specifikuje bar- 
vu bodu. 


DRFT body se automa- 

ticky spojují úseč- 
kami. 

DOT ruší účinek 

DRFT. 

TOUT(Jméno:ARRAY (1..8) OF CHAR; 
START, DÉLKA:INTEGER) 

nahraje na mag- 
netofon specifi- 
kovaný úsek pa- 
měti. 

TIN(Jméno:ARRAY (1..8) OF CHAR; 
START:INTEGER nahraje data 

z magnetofonu 
do paměti. 

Také v příkazu WRITE jsou použity někte- 
ré nestandardní řídicí kódy: 

CHR(21 ),CHR(B) ekvivalent OVER B v BA- 
SICu. 

CHR(17),CHR(B) ekvivalent PAPER B 
v BASICu. 

Při přenosu programu na jiný typ počítače 
by bylo nutné upravit: 

- kontrolu souřadnic v procedurách LINEK- 
RES, KRIZW, POHYBKUR podle rozlišova- 
cí schopnosti použitého počítače, 

- souřadnice použité při volání procedury AT 
podle počtu zobrazitelných řádků a sloupců, 

- adresu začátku a konce volné paměti pro 
data v konstantách OFFSET a TOPMEM. 

Program ZCF je vystavěn kolem ovladače 
SUPERPLOT, který je dodáván se zapiso- 
vačem XY 4131. V případě použití jiného 
zapisovače a tím i ovladače by bylo nutné 
přeprogramovat procedury, které zajišťují 
předání parametrů z Pascalu ovladači: 

MA, VA, AC, OG, MF, CS, SC, ODVYS5. 
Podrobné jsou tyto příkazy popsány v příruč- 
ce k programovému vybavení zapisoyače 
XY 4131. 

Pokud někdo nebude schopen program 
sám přeložit, může se obrátit na autora 
o nahrávku zkompilovaného programu. 


10. Návaznost programu 
na kreslicí zařízení 

Popis programu ZCF 

Pro překreslení kresby zaznamenané pro- 
gramem GEK+ na souřadnicovém zapiso- 
vači byl napsán další kratší program. Je 
vystavěn kolem ovládacího programu SU- 
PERPLOTT, který je dodáván společně se 
zapisovačem XY 4131. Bohužel jsem nikdy 
neměl možnost vyzkoušet tento program 
v originální sestavě (používám upravený 
SUPERPLOTT pro ovládání zapisovače 
pouze přes jediný osmibitový port), proto 
nemohu stoprocentně zaručit bezchybnou 
spolupráci se zapisovačem XY 4131. 

Po nahrání programu příkazem LOAD"" se 
ZCF automaticky spustí. Nyní musíme do 
programu nahrát všechny bloky vytvořené 


l.blok 2. blok n-tý blok 
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Obr. 1. Struktura da- 
tového pole (929-1 ) 


| EHDOF 
DK(N).PRVKY(BLOCK) 
DK(2).PRVKY(ARC) 

OK (2). PRVKY (LINE) 

OK(1).PRVKY(BLOCK) 

0K(1).PRVKY(TEXT) 

DK(1) .PRVKY(ARC) 

OK (1). PRVKY (LINE) 


programem GEK+ nutné pro správné zre- 
konstruování kresby (viz kapitola 8.2). Na 
dotaz „Name“ napíšeme' pětiznakové jmé- 
no souboru, který jsme před tím zaznamena- 
li programem GEK+ příkazem SAVÉ 
a spustíme magnetofon. Postupně budou 
nahrány tři bloky dat s potřebnými údaji. 
Pokud je třeba přihrát ještě další soubor 
(soubory) jiného jména, stiskneme Y a po- 
stup se opakuje až máme všechny potřebné 
bloky nahrány v paměti. 

Nyní program požaduje tyto údaje: 

Scale měřítko zvětšení kresby (men- 
ší než 1 . . . zmenšení, větší 
než 1 . . . zvětšení). 

Origin X,Y souřadnice vztažného bodu 
- na tento bod později nastaví- 
me pisátko zapisovače a tím 
určíme polohu kresby na papí- 
ře. 

Orientation 1 . . . standardní kresba, 

2 . . . kresba bude zrcadlově 

otočena podle osy X 

3 . . . kresba bude otočena 

o 90° podle počátku. 

Po zadání všech těchto údajů proběhne 
inicializace zapisovače a pak program čeká, 
až pomocí kláves 5, 6, 7, 8 příp. +1 pro 
zrychlený pohyb nastavíme pisátko do bodu, 
jež má na papíře odpovídat výše zadanému 
vztažnému bodu. Jsme-li hotovi, stiskneme 
0. V tomto okamžiku program zobrazí všech- 
ny nahrané bloky a jejich pořadová čísla 
a čeká na zadání počtu bloků, které chceme 
najednou vykreslit (ve většině případů jsou 
to jeden nebo dva např. oboustranné desky 


plošných spojů). Nyní postupně napíšeme 
pořadová čísla těchto bloků tak, jak jsou 
uvedena na obrazovce. Poté program vypí- 
še zprávu „lam drawing" a kreslí specifiko- 
vané bloky. 

Pozn. : 

I. Kreslení lze kdykoliv přerušit klávesou 
SPACE. Po stisku kterékoliv jiné klávesy 
kreslení pokračuje. 

li. Volba Orientation pracuje správně pouze 
s upraveným ovládačem zapisovače. Je-li 
nahrán originální ovládač, volba je ignorová- 
na. 


11. Ukázkový soubor PLSSP 

Tento soubor nahrajeme do programu 
GEK+ (případně ZCF) příkazem LOAD 
(popř. výše uvedeným postupem) a zadáním 
jména PLSSP. Soubor obsahuje několik blo- 
ků: 

MALYB malý pájecí bod 0 1 ,25 mm, 
VELKYB velký pájecí bod 0 3 mm, 
DIL14S 'patice DIL 14 svisle, 

DIL14V patice DIL 14 vodorovně, 

DIL16S patice DIL 14 svisle, 

DIL16V patice DIL 14 vodorovně, 

OZ patice operačního zesilovače 

(kulatá), 

XI, X2 pomocné bloky, 

MRIZ5 pomocný rastr 5+5 mm, 

STRSPO příklad plošného spoje vytvoře- 
ného na 

STRSOU základě tohoto souboru pájecích 
bodů a patic. 


Výpis 1. Program GEK+ (929-V1) 


PROGRAM GEK; 

CONST OFFSET-+EA60; 

TOPMEM-+F450; 

P0LMAX-80; 

P0CPR1K-23; 

JMCELKEM-83; 

TYPE L1NET-REC0RD 

X,Y:1NTEG£R;END; 

ARCT-RECORD XC , YC , XS , YS . A , U : ] NTEGE 
R;END; 

TEXTT-RECORD VELIKOST: CHAR ; XP , YP : 3 
NTEGER;T:ARRAYtl..51 OF CHAR;END; 
0BJT-(L1 NE, ARC, TEXT, BLOK) ; 
UKAZATELE-ARRAY [ 1 . . PBLMAX 1 OF RE 


RVKY ; ARRAY [LINE.. BLOK ] OF 1 NTEGER; 

P 

OCET : ARRAY f LI NE.. BLOK] OF 3 NTEGER; 

E 

ND; 

BL0KT-REC0RD X , Y : ] NTEGER ; CBL : CHAR ; 

END; 

NAMET-ARRAY [ 1 . . 1 0 1 OF CHAR; 

VAR X3,Y3,X4,Y4,PANX,PANY,GBL: ] NTEGER ; 
SCALE:REAL; 

KRES:BOOLEAN; 

PL 1 NE : LI NET ; PARC = ARCT ; PTEXT : TEXTT ; P 
BL0K:BL0KT; 

UK : UKAZATELE ; ENDOF : 1 NTEGER ; 

XCUR, YCUR, XCURS , YCURS , PS. AKT , WUA , 
MNUR: 1 NTEGER; 

RYCHLOST 1: ARRAY [1.. 3) OF RECORD 

XRY, YRY,P : ]NTE 

GER; END; 

JMÉNA: ARRAY [1. . JMCELKEM , 1 . .6] OF CH 
AR; 

DP:ARRAYtl. .3) OF 1 NTEGER; 
CURBL0K,CURLT: ] NTEGER; 

C1SL0: ] NTEGER ; 

FUNCT10N L 1 NEKRES ( XI, Y1,X2,Y2.1 NTEGER): 
B00LEAN; 

VAR Ml ,M2,XR, YRíREAL.- 
N.M: 1NTEGER; 

B2:B00LEAN; 


BEG1N 

XR : - ( (XI +PANX ) * SCALE ) ; YR : - ( ( Y1 +PANY ) *S 
CALE); 

Ml ; - ( ( X2+PANX ) »SCAL£ ) ;M2:-( (Y2+PANY) *S 
CALE); 

LI NEKRES: -FALŠE; 

B2:-((XR<0) AND (M1<0) ) 0R ((XR>206) AN 
D (Ml>206) ) ; 

B2:-B2 0R ( ( YR<0 ) AND (M2<0)) 0R ( (YR>1 
75) AND (M2>175) ) ; 

1F NOT B2 THEN BEG1N 

M : -R0UND ( SORT ( SQR ( X2-X1 ) +SQR ( Y2-Y1 ) ) *SC 

ALE); 

1F M-0 THEN M:-l ; 

Ml :-(X2-Xl)/M»SCALE;M2:-(Y2-Y1)/M*SCAL 
E; 

FOR N 0 TO M DO BEG3N 
XI :-R0UND(XR) ;Y1 :-R0UND(YR) ; 

1F (Xl>-0) AND (XI <-206 ) AND (Yl>-0) A 
ND (Y1<-175) AND KŘES THEN PLOT(X1,Y1,0 
) ; 

1F (Xl>-X3) AND (XK-X4) AND (Yl>-Y3) 
AND (Yl<-Y4) THEN L ] NEKRES : -TRUE ; 
XR:-(XR+M1 ) ;YR:-(YR+M2) ; 

END; 

END; 

END; 

FUNCTION UNETL(X1,Y1,X2,Y2,A:1NTEGER): 
B00LEAN; 

VAR N,M:1NTEGER;M1,M2,XR,YR:REAL; 

BEG1N 

LI NETL: -FALŠE; 

N:-A MOD 1 00 ; A : -A DIV 100; 

Ml : -SORT (SQR (X2-X1 )+SQR(Y2-Yl ) ) ; 

1F Ml-0 THEN Ml :-l ; 

M2:-(Y2-Y1 )/Ml*A*(N-l )/2; 

Ml :— (X2— XI )/Ml»A*(N~l )/2; 

X2 : -ROUNO ( X2-X1 ); XR :-( XI -M2 ) ; 

Y2 : -R0UND ( Y2-Y1 ) ; YR : -Y 1 +M1 ; 

1F N>1 THEN BEG1N Ml :-Ml/( (N-1 )/2) ;M2:- 
M2/((N-1)/2);END; 

FOR M :— 1 TO N DO BEG1N 
XI :-R0UND(XR);Yl :-R0UND(YR); 

1F LINEKRES(X1 ,Y1 ,X1+X2,Y1+Y2) THEN L 
I NETL: -TRUE; 

XR : -XR+M2 ; YR : -YR-M1 ; 

END; 

END; 

FUNCT10N ARCKRES ( AC : ARCT ) : B00LEAN ; 


VAR C,PR,PA,DA:REAL;N,M,D,E: 1NTEGER; 
BEG1N 

W1TH AC DO BEG3N 
C :■ -U/l 000; 

PR : -SORT ( SQR ( XS-XC ) +SQR ( YS-YC ) ) ; 

N : -ROUNO ( ABS ( PR*SCALE*2* (C/6.28))); 
PA;-ARCTAN( ( YS-YC)/ (XS-XC+0. 01 ) ) ; 

1F ( XS-XC )<0 THEN PA:-PA+3.1415; 
ARCKRES : -FALŠE ; 

1F N-0 ThEN ARCKRES: -LI NETL (XS,YS,XS, 
YS,A) 

ELSE BEG1N 
DA:-C/N; 

FOR M:-l TO N DO BEG1N 
D : -ROUND ( PR*C0S ( PA+DA )+XC) ;E: -ROLfC 
(PR*S1N(PA+DA)+YC) ; 

1F LINEU (ROUND(XC+PR»COS(PA)),R(XM)(YC 
fPR*SlN(PA)),D,E,A) THEN ARCKRES -.-TRUE ; 
PA :■ -PA+DA; 

END; 

END; 

END; 

END; 

FUNCT 1 ON TEXTKRES ( TXT : TEXTT ) : BOOLEAN ; 
VAR SKV , SKD , M : 1 NTEGER ; 

BEG1N 

W3TH TXT DO BEG1N 
9<V : -ORD ( VEL 1 KOST ) *4 ; SKD : -0 ; 

FOR M : — 1 TO 5 DO BEG1N 
1F (TfM)o ’ •) AND (T[M]oCHR(13) ) T 
HEN SKD : -SKD+SKV ; END ; 

TEXTKRES: -FALŠE; 

1F L 1 NEKRES ( XP , YP , XP+SKD , YP ) ThEN TEX 
TKRES:-TRUE; 

1F L 1 NEKRES ( XP+SKD , YP , XP+SKD , YP+SKV ) 
THEN TEXTKRES : -TRUE; 

1 F L 1 NEKRES ( XP+SKD , YP+SKV , XP , YP+SKV ) 
THEN TEXTKRES: -TRUE; 

1F LI NEKRES (^P, YP+SKV, XP,YP) THEN TEX 
TKRES :-TRUE; 

END; 

END; 

PROCEDUŘE LD1R(HL,DE,BC; 1NTEGER) ; 

BEG1N 

1F BO0 ThEN BEG1N 

POKE ( 23600, HL);P0KE ( 23602, DE ) ;P0KE (2 
3604, BC) ; 

1 NL 3 NE ( +2A , *30 , *5C , *ED , *50 , *32 , +5C , *ED 
,+4B,*34,*5C) ; 

1NL1NE !*ED,*B0) ; 

END; 

END; 

PROCEDUŘE LDDR ( HL , DE , BC : 1 NTEGER ) ; 

BEG1N 

1F BO0 THEN BEG1N 

POKE ( 23600 , FL ) ; POKE ( 23602 , DE ) ; POKE ( 2360 
4,BC); 

1 NL 3 NE ( *2A , *30 , +5C ,*ED,+5B,*32, +5C , +ED 
,*4B,+34,*5C) ; 

1NL1NE (♦ED,*B8); 

END; 

END; 

FUNCT ION POCETPRVKU ( BLOK : 1 NTEGER ; OB J : OB 
JT) : 3NTEGER; 

BEG3N 

POCETPRVKU : -UK \ BLOK ] . POČET [ OB J 3 ; 

END; 

PROCEDUŘE P0]NTERS(BL,M:3NTEGER;0BJ:08J 
T) ; 

VAR N; INTEGER; 

POBJ :0BJT ; 

BEG3N 

3F 0BJ<BL(X THEN BEG3N 
FOR P0BJ:-SUCC(0BJ) TO BLOK DO 
UKtBLl .PRVKYfPOBJ] :-UK[BL3 .PRVKYtPOBJ 
1+M; 

END; 

3F BL<PBLMAX THEN BEG3N 
FOR N:-BL+1 TO PBLMAX DO BEG3N 
FOR POBJ: -LI NE TO BLOK DO 
UK [N 3 . PRVKY [ PCBJ ) ^ -UK (N) .PRVKY(POBJ) 
+M; 

END; 

END; 

ENDOF ;-END0F+M; 

END; 

PROCEDUŘE ADLEN ( OBJ : OB JT ; VAR N,M= 1NTEGE 
R); 

BEG3N 

CASE OBJ OF 

L3NE:BEG3N N:-ADDR(PL1NE) ;M:-4;END; 

ARC : BEG 3 N N : -ADDR ( PARC ) ; M : -1 2 ; END ; 


TEXT:BEG1N N:-ADDR( PTEXT) ;M:-10;END; 
BL0K:BEG1N N :-ADDR (PBLOK) ;M:-5;END 
END; 

END; 

PROCEDUŘE NPRVEK (BL, O :3NTEG£R; OBJ :OBJT) 

VAR N,f1: 1NTEGER; 

BEG1N 

ADLEN(OBJ,N,M); 

1_D1R( (0-1 ) »M+LB<tBL] .PRVKYfOBJl ,N,M) ; 
END; 

PROCEDUŘE VLOZtBL: INTEGER;OBJ : 08 JT ) ; 

VAR N,M: 1NTEGER; 

BEG1N 

JF ENDOF<TOPMEM THEN BEG]N 
ADLEN(08J,N,M) ; 

W1TH UKIBL1 DO BEG]N 
LDDR ( ENDOF , ENDOF+M , ENDOF-PRVKY I OB J ] ■ -M 
♦P0CETÍ08J3+1 ) ; 

LD 1 R ( N , PRVKY t OB J 1 +M *POCET [ 00 J 1 , M ) ; 
POČET f OB J 1 : -POČET [ OB J 3+1 ; 

END; 

PO]NTERS(BL,M,O0J) ;END 
ELSE BEGIN 

AT(22,0);WR3TE('Memory full !!! 

' ) ; END; 

END; 

PROCEDUŘE SMAŽ (BL,M: 1NTE6ER ; OBJ: 08JT); 
VAR N,0: 1 NTEGER; 

BEGIN 

ADLEN(08J,0,N) ; 

W]TH UK(BL) DO 

LD 1 R ( PRVKY f OB J ]■ +M*N , PRVKY [ OB J )+( M- 1 ) *N , 
ENDOF-PRVKY [ OBJ 1 ~M*N ) ; 

N:— N;P01NTERS(BL,N,0BJ) ; 

UK(BL) .POCETtOBJ) :-UK[BL) .POCETÍOBJl-1 ; 
END; 

PROCEDUŘE ZMEN(BL,0:]NTEG£R;OBJ:08JT); 
VAR M,N: 1NTEGER; 

BEGIN 

ADLEN(OBJ,N,M) ; 

LD1R(N,UK[BL1.PRVKY[0BJ1+M*(0-1),M); 

END; 

FUNCT ] ON BLOKKRES ( BLK : BLOKT ) : BOOLEAN ; 
VAR X1,Y1,X2,Y2,M,N,A,BL:1NTEGER; 

BEGIN 

8L : -ORD (BLK . CBL ) ; 

BLOKKRES: -FALŠE; 

N : -POCETPRVKU (BL, LI NE) ; M : — 1 ; 

WH1LE N>0 DO BEGIN 
NPRVEK(BL,M,L3NE) ; 

1F PLINE.X-MAXINT THEN BEGIN 
A:-PL1NE.Y; 

MPRVEK(BL,M+1 .LINE) ; 

XI ; -PLÍNĚ. X;Y1 : — PL 1 NE . Y ; 

NPRVEK ( BL, Mt2 ; LINEI; 

X2:-PL]NE.X;Y2:-PL1NE.Y; 

M:-M+2;N:-N-2; 

END 

ELSE BEGIN 

XI :-X2;Y1 = -Y2;X2 ; -PLÍNĚ. X;Y2: -PLÍNĚ. 

Y; 

END; 

1F L3NETL(X1+BLK .X.Y1+BLK. Y.X2+BLK ,X,Y 
2+BLK.Y.A) THEN BEGIN 
BLOKKRES: -TRUE; 

1F (GBL-BL) AND (KRES-FALSE) THEN 

BEGIN 

PL 1 NE . X :■ -PL 1 NE . X+20000 ; ZMĚN ( BL , 
M,L1NE);END; 

END; 

N:-N-1;M:-M+1; 

END; 

N : -POCETPRVKU (BL,ARC); XI :-BLK.X;Y1 :-BLK 

.Y; 

1F N>0 Tt-EN BEGIN 
FOR M;-l TO N DO BEGIN 
NPRVEK(BL,M,ARC) ; 

W1TH PARC DO BEGIN 
XC:-XC+X1;YC=-YC+Y1; 

XS : -XS+X1 ; YS : -YS+Y 1 ; 

END; 

1F ARCKRES(PARC) THEN BEGIN 
BLOKKRES :-TRUE;NPRVEK(BL,M,ARC) ; 

1F (GBL-BL) AND (KRES-FALSE) THEN BE 
GIN 

PARC . XC : -PARC . XC+20000 ; ZMĚN ( BL , M , AR 
C) ;END; 

END; 

END; 

END; 


N : -POCETPRVKU (BL, TEXT); 

1F N>0 THEN BEGIN 
FOR M:-l TO N DO BEGIN 
NPRVEK ( BL , M, TEXT ) ; 

W1TH PTEXT DO BEGIN 
XP :— XP+X1 ; YP : -YP+Y 1 ;END; 

IF TEXTKRESÍ PTEXT) TVEN BEGIN 
BLOKKRES : -TRUE ; NPRVEK (BL,M, TEXT ) ; 

1F (GBL-BL) AND (KRES-FALSE) THEN BEG 
1N 

PTEXT . XP : -PTEXT . XP+20000 ; ZMĚN ( BL , M , T 
EXT) ;END; 

END; 

END; 

END; 

N : -POCETPRVKU (BJ_,BLOK) ; 

1F N>0 THEN BEGIN 
FOR M:-1 TO N DO BEGIN 
NPRVEK ( BL, M , BLOK) ; 

W1TH PBLOK DO BEGIN 
X : — X+Xl ; Y : — Y+Y 1 ; END ; 

JF BLOKKRES (PBLOK) TPEN BEGIN 
BLOKKRES : -TRUE : NPRVEK ( BL . M . BLOK ) ; 

1F (GBL-BL) AMD (KRES-FALSE) THEN SE 
GIN 

PBLOK . X :■ -PBLOK . X+20000 ; ZMĚN ( BL . M . BL 
OK) ;END; 

END; 

END; 

END; 

END; 

PROCEDURE KŘESL 3 ( BK : BLOKT ; KR : BOOLEAN ) ; 
VAR RESS : BOOLEAN ; 

BEGIN 

KŘES :■ -KR ; GBL :■ -ORD ( BK . CBL ) ; 

RESS :■ -BLOKKRES (BK); 

KŘES : -TRUE; 

END; 

PROCEDUŘE PAUSE (N : 1 NTEGER ) ; 

VAR M; 1NTEGER; 

BEGIN 

FOR M;-1 TO N DO 
END; 

PROCEDUŘE DRAW(X,Y,X1 ( Y1 :1NTEGER;0:1NTE 
GER); 

BEGIN 

DRFT;PL0T(X,Y,0) ; F*LOT (XI ,Y1 ,0) ;DOT; 

END; 

PROCEDUŘE KURZOR ( X, Y : 1 NTEGER ) ; 

BEGIN 

DRAW(X-2,Y,X+2,Y, 9) ;DRAW(X,Y-2,X,Y+2 ( 9 

) ; 

END; 

FUNCT ION P0HYBKUR(XR,YR:1 NTEGER ;KR:BOOL 
EAN) ;CHAR; 

VAR A=CHAR; 

T1ME,R,N: 1NTEGER; 

PROCEDUŘE KR1ZW; 

BEGIN 

KURZOR ( XCUR , YCUR ) ; 

DRAW ( XCUR , 1 , XCUR , 1 75 , 9 ) ; DRAW ( 1 , YCUR , 20 
7, YCUR, 9); 

1F KR THEN BEGIN 

DRAW(XR,YR,XR,YCUR,9) ;DRAW 
(XR,YR,XCUR,YR.9);END; 

END; 

BEGIN 

R:-0;TlME:-0; 

REPEAT 

A:-1NCH; 

1F A-CHR(0) THEN BEGIN 
REPEAT 

A:-1NCH;T1ME:-T1ME+1; 

1F TJME>3500 THEN KGIN 
KRlZW;TlME:-0; 

REPEAT 

A:-1NCH; 

U4T1L A<>CW(0); 

KR1ZW;END; 

UNTIL A<>CHR(0); 

T1ME:-0;R:-0;END; 

R ; -R+RYCHLOST 1 ( R DIV 20+1 3. P; 

3F A- 'O' THEN XCUR : -XCUR-RYCHLOST 1 1 R D 

3V 20+il.XRY; 

1F A-'P* THEN XCUR : -XCUR+RYCHLOST 1 ( R D 
IV 20+D.XRY; 

1F A— ' Q ' THEN YCUR : -YCUR+RYCHLOST 3 [ R D 
3 V 20+ll.YRY; 

3F A-' A' THEN YCUR :-YCUR-RYCH-OSTJ [R D 
IV 20+ll.YRY; 

1F (XCUR<2) OR (XCUR>205) OR (YCUR<2) 


OR (YCUR>173) 1>EN BEGIN 

XCUR : -XCURS ; YCUR : -YCURS ; END ; 
WR]TE(CHR(2i ) ,OR(0) ) ;AT(0,0) ;WR]TE( ( (X 
CUR-PANX »SCALE ) /SCALE*0 .125) =6:3); 

AT(0, 10) ; WR]TE( ( (YCUR-PANY*SCALE)/SCALE 
*0. 125) : 8 : 3 ) ; 

KURZOR ( XCURS , YCURS ) ; KURZOR ( XCUR , YCUR ) ; 
XCURS : -XCUR ; YCURS : -YCUR ; 

PAUSE (900) ; 

UNTIL NOT ( (A- 'O' ) OR (A-'P ' ) OR (A-'Q* ) 
OR ( A— ' A 1 ) ) ; 

POHY BKUR : - A ; WR I' T E ( CHR ( 2 1 ) , CM ( 0 ) ) ; 
REPEAT UNTIL 3NCH-CHR(0); 

END; 

PROCEDUŘE ZOBRAZCAST (C- I NTEGER ) ; FORWARD 

PROCEDUŘE OBNOVNAP 1 S ; FORWARD ; 

PROCEDUŘE ZOBRAZCAST; 

VAR N ; 3 NTEGER ; 

BEGIN 

WRIT£(CHR(21 ) ,CHR(0) ) ; 

FOR N:-C TO C+16 DO BEGIN 
AT(N-C+2,2é); 

3F N>PBL AKT +POCPR 3 K THEN WR1TEÍ ' 


ELSE WR1TE( JMENAtN 

1); 

END; 

END; 

PROCEDUŘE 3 NVERSE (C: 1 NTEGER ; SW : BOOLEAN ) 

BEGIN 

.AT(C,2é); 

1F SW THEN WR1TE (CHR (17) ,CHR(2) ) 

ELSE WR1TE(CW(17),CHR(0>); 
WR1TE(CHR(21 ) ,CHR(1 ) , ' '); 

WR1TE(CHR(21 ) ,CHR(0) ,CHR(17) ,CHR(0) ) ; 
END; 

FUNCT 1W FCEMNU ( B : 3 NTEGER ) :CHAR; 

VAR A:CHAR; 

BEGIN 

1F WAJA<B THEN BEGIN 
MNUA : -B ; ZOBRAZCAST ( MNUA ) ; END ; 

1 NVERSE (MNUR+2, TRUE); 
f^PEAT UNTIL 3NCH-CHR(0) ; 

REPEAT 
REPEAT 
A :-3NCH; 

UNTIL A<>CHR(0); 

3F A-' O' THEN BEGIN 
MNUA ; -MNUA- 1 0 ; 

3F MNUA<B THEN MNUA;-B; 

ZOBRAZCAST ( MNUA ) ; 3 NVERSE ( MNUR+2 , TRUE ) 
;END; 

1F A- 'P' THEN BEG3N 
MNUA :-MNUA+10; 

1F MNUA> ( PBLAKT+POCPR 3 K- 1 é ) THEN MNUA 
: -PBLAKT +POCPR 3 K- 1 é ; 

ZOBRAZCAST ( MNUA ) ; 3 NVERSE ( MNUR+2, TRUE ) 
;END; 

1F A-'Q' THEN BEG3N 
MNUR:-WUR-1; 

3F MNUR<0 THEN MNUR:-0; 

3 NVERSE ( MNUR+3 , FALŠE ) ; 3 NVERSE ( MNUR+2 , 
TRUE); END; 

1F A- 'A' THEN BEGIN , 

MNUR:-WUR+1; 

3F MNUR>lé THEN MNUR:-U; 

INVERSE (MNUR+1 , FALŠE) ; INVERSE (MNUR+2, 
TRUE) ; END ; 

PAUSE ( 900 ); 

UNTIL NOT ( (A-'0' ) OR (A-'P') OR (A-'Q') 
OR (A- 'A' ) ) ; 

FCEmU : -A ; 3 NVERSE ( MNUR+2 , FALŠE ) ; 

REPEAT UNTJL 1NCH-CW(0); 

1F (MNUA+MNUR<B) OR (MNUA+MNUR>P0CPR3K+ 

PBLAKT ) THEN BEGIN 

MNUA : -B ; MNUR : -0 ; ZOBRAZCAST ( B ) ; END ; 

END; 

PROCEDUŘE OBNOVNAP 3 S ; 

BEG3N 

AT (22,0) ;WR]TE( JMÉNA UDPd 1 ) , 1 MENU ', 
JMÉNA I DP 1 2 3 3 , ' ' , JMENA(DP(33 3 ) ; 

END; 

FUNCT 3 W CPR3K(A:CHAR):3NTEGER; 

BEG3N 
CPR1K :— 0; 

3F A-'X' THEN BEGIN 

AT(22,0) ; WR 3 TE ( 'SELECT CREATE DEF3NE S 
ELECT'3; 

A:-FCEMNU(1); 


1F ( A— ' Z ' ) OR CA— ‘li ' ) THEN CPR3K:-MNUA 
+MNUR; 

IF A-‘N' THEN BEG3N 
AT(22,0) ;WR)TE( 'Selecí Uy (Z,N,M) 

'); 

REPEAT UNT2L 3NCH<>CHR(0); 

A:-1NCH; 

IF A- 'Z ' THEN DP í 1 1 : -MNUA+MNUR ; 

IF A-'N' THEN DPI2) :-MNUA+MNUR; 

IF A— ’ M ' THEN DP [ 3 I : -MNUA+MNUR ; 

REPEAT UNTJL 1NCH~CHR(0); 

END; 

08N0VNAP I S ; END 
ELSE BEG3N 

IF A- 'Z 1 THEN CPR3K:-DPf1); 

IF A-’N' THEN CPR2K :HPf2I ; 

IF A-‘M' THEN CPR3K:-DP[33 ; 

END; 

END; 

PROCEDUŘE IN3T3AL; . 

PROCEDUŘE 3N3TD3SP; 

BEOIN 

PANX : -500 ; PANY : -400 ; SCALE :— 1/5; KŘES : -T 
RUE; 

X3:-0;Y3:-0,X4:-100;Y4:-100; 

END; 

PROCEDUŘE 3NJTDM; 

VAR N: 3NTEGER;POBJ :OBJT; 

BEGIN 

FOR N 1 TO PBLMAX DO BEGIN 
FOR POBJ:-LINE TO BLOK DO BEGIN 
UKEN] -PRVKY! POBJI: -OFFSET; 
UK[N3.POCET[POBJ3:-0; 

END; 

END; 

ENDOF : -OFFSET; 

END; 

PROCEDUŘE IN3TMNU; 

BEGIN 

XCUR : -1 00 ; XCURS : -1 00 ; YCUR : -80 ; YCURS : -80 

RYCH-OST I [ 1 ]. XRY : -1 ; RYCHLOST I [ 1 I . YRY : -1 
; RYCHLOST 3 Ml.P: -4; 

RYCHLOST 1 1 2 1 . XRY : -2 ; RYCHLOST 3 E 2 1 . YRY : -2 
.RYCHLOSTI [23 .P:-2; 

TTfCHLOST 3 [ 3 3 . XRY : -7 ; RYCHLOST I [ 3 3 . YRY : -7 
.RYCHLOSTI [31. P:-0 ; 

PAGE ; KURZOR ( XCUR , YCUR 3 ; 

PBLAKT : -0 ; CURBLOK : -1 ; CURLT :-101 ; 

FOR GBL :-1 TO JMCELKEM DO JMÉNA [ GBL 3 : - ' 

JMÉNA M 3 :-'OPEN ' ; JMÉNA Í21 :-'CURR ’ ; J 
MENAE51 :-'MOVE ’; 

JMÉNA [63:-’ COPY J ; JMENAI73 :-'ERASE ’;J 
MENAI83 :-'L.TYPE' ; 

JMÉNA [113:-' ZOOM ' ; JMENAI121 :-'PAN 

JMENAI131 :-'CURSOR' ; JMENAÍ15) -.-'SAVÉ ' 

jřENAllé) :-'LOAD ' ; JMENAM93 :-'L3NE ' 

JfCNA[201:-'ARC ' ; JMÉNA [213:-' TEXT ’ 

JMÉNA E 24 3 : - ’ b I o L 1'; 

JMENAM83 def18' ; JMENA(22) def22' 

POKE(23é5?,CHR(13); 

ttJUA : - 1 ; MNUR : - 1 5 ; ZOBRAZCAST ( 1 3 ; 

DP[1 3 7;DP[21 :-21 ;DPf33 :-1?; 
OBNOVNAPIS; 

END; 

BEGIN 

1N3TDISP; 

INITDM; 

INITMNU; 

END; 

PROCEDUŘE KUR; 

BEGIN KURZOR (XCUR, YCUR) ;WR3TE(CHR(21 3 ,C 
HR ( 0 3 3 ; END ; 

FUNCT30N XSK : 3 NTEGER ; 

BEGIN 

XSK = -ROUND ( ( XCUR-PANX *SCALE 3 /SCALE 3 ; END 

FUNCT30N YSK: 3 NTEGER; 

BEGIN , 

YSK :-ROUND( ( YCUR-PANY *SCALE 3 /SCALE 3 ;END 

PROCEDUŘE PRL3NE; 

VAR A:CHAR; 

XM,YM:1 NTEGER; 

B:BOOLEAN; 


BEGIN 

PL 3 NE . X : -MAX I NT ; FL I NE . Y : -CURLT ; VLOŽ ( CUR 
BLOK.LINE); 

PL2NE.X:-XSK;PL3NE.Y:-YSK;XM:-XSK;YM:-Y 
SK; VLOŽ (CURBLOK, LINE 3; 

ATC22.0) ;WR3TE( 'To polní 
'); 

A :-POHYBKUR(0,0,FALSE) ; 
PL3NE.X:-XSK;PLINE.Y:-YSK; 

KUR; 

B : -L 3 NETL ( XM , YM , XSK , YSK , CURLT 3 ; VLOŽ ( CUR 
BLOK.LJNE) ; 

KUR; 

XM:-XSK;YM:-YSK; 

AT ( 22 , 0 3 ; WR I TE ( 'END Nexipolf^ 1 ); 
WH3LE NOT (POHYBKUR(0,0,FALSE)-'Z' 3 DO B 
EG3N 

PL 3 NE . X : -XSK ; PL 1 NE . Y : -YSK ; VLOŽ ( CURBLOK 
.LINE) ; 

KUR; 

B : -L 3 NETL ( XM , YM , XSK , YSK , CURLT 3 ; XM : -XSK 
;YM:-YSK; 

KUR; 

END; 

OBNOVNAPIS; 

END; 

PROCEDUŘE PRARC; 

VAR F : CHAR; B : BOOLEAN ; 


BEGIN 

AT(22,0);WR1TE( 'Center point 

F : -POHYBKUR ( 0,0, FALŠE ); 

PARC . XC : -XSK ; PARC . YC : -YSK ; 
AT(22,0) ;WR1TE( 'Siori poini 


F : -POHYBKUR (0,0, FALŠE ) ; 

PARC . XS : -XSK ; PARC . YS : -YSK ; 

AT(22,0) ; WR 3 TE f 'Enier en 9 le ’); 

AT ( 22 , 1 3 ) ; READLN ; READ ( PARC . U ) ; 

PARC . U = -ROUND ( PARC . U/ 1 80 * 3 . 1 4 1 5* 1 000 3 ; 


PARC. A :■ -CURLT; 


KUR; 

VLOŽ ( CURBLOK , ARC 3 ; B : -ARCKRES ( PARC 3 ; OBNO 
VNAPJS; 

KUR; 


END; 

PROCEDUŘE PRTEXT; 
VAR B : BOOLEAN ; 
C:REAL; 


BEG3N 

AT(22,0);WR3TE( 'Enier iexi 
'); 

AT ( 22 , 1 2 3 ; READLN ; READ ( PTEXT . T 3 ; 
AT(22,0);WR]TE('Size mn. 

'); 

AT (22, 5) ; READLN; READ (C) ; 

PTEXT . VEL 1 KOST : -CHR (ROUND ( ABS ( C 3 »2 3 3 ; 
PTEXT . XP : -XSK , PTEXT . YP : -YSK ; VLOŽ ( CURBLO 
K, TEXT 3 ; 

KUR; 

B : -TEXTKRES ( PTEXT 3 ; 

KUR; 

OBNOVNAPIS; 

END; 

PROCEDUŘE PRBLOK(A: 3NTEGER) ; 

VAR B : BOOLEAN ; 

BEGIN 

3F (A>POCPR3K) AND (A<-POCPR3K+PBLAKT) 
AND (AoCURBLOK+POCPRIK) THEN BEG3N 
PBLOK.X: -XSK ; PBLOK . Y : -YSK ; PBLOK . CBL : -C 
HR(A-POCPR)K); 

KUR; 

VLOŽ ( CURBLOK , BLOK 3 ; B : -BLOKKRES ( PBLOK 3 ; 
KUR; 

END; 

END; 

PROCEDUŘE CLWA; » 

VAR N: 3 NTEGER; 

BEGIN 

WR]TE(CHR(21).CHR(03); 

FOR N :— 0 TO 21 DO BEGIN 
AT (N,0) ;WRITE( ' 

’); 

END; 

END; 

PROCEDUŘE REDRAW; 

BEGIN 

PBLOK . X : -0 ; PBLOK . Y : -0 ; PBLOK . CBL : -CHR ( C 
URBLOK); 

KŘESL) (PBLOK, TRUE 3; 

KUR; 

END; 


PROCEDUŘE PRCURR; 

VAR A ; CHwR ; 

N.M: 3NTEGER; 

BEGIN 

AT (22,0) ; WR]TE( ' Beck qr . Current block 
'); 3 

CLWA; 

REPEAT 

A : -FCEMNU ( POCPR I K+ 1 3 ; 

IF A- 'Z' THEN BEG3N 

CURBLOK : -MNUA-* MNUR-POCPR 3 K ; 
REDRAW; 

FOR N:-0 TO 103 DO BEG2N 
FOR M :-0 TO 87 DO BEGIN 
PLOT(N»2,M»2,0) ;PLOT(N»2,M*2, ?) 

PLOT (N*2+1 ,M»2+1 ,0) ;PLOT (N*2+1 , 

M*2+1 ,9) ; 

END; 

END; 

END 

ELSE BEGIN 

CURBLOK : -TMJA+MNUR-POCPR 1 K ; REDRAW 

;END; 

UNT3L NOT (A-'Z ' 3 ; 

OBNOVNAPIS; 

END; 

PROCEDUŘE PROPEN; 

BEGIN 

IF P8LAKT-PBLMAX THEN BEGIN 

AT(22, 0) ; WR3TE( 'Too many blocks 

PAUSE (30000 ) ; END 
ELSE BEGIN 

PBLAKT :-PBLAKT+1 ,-CURBLOK : -PBLAKT; 
AT(22,0);WR]TE( 'Name 
’); 

AT ( 22 , (> 3 ; READLN ; READ ( JMÉNA ( POCPR 1 
K-t CURBLOK) 3; 

ZOBRAZCAST ( PBLAKT +POCPR 3 K- 1 5 3 ,CLW 
A; 

END; 

OBNOVNAP 3 S ; KUR ; 

END; 

PROCEDUŘE W 1 NDOW ; FORWARD ; 

PROCEDUŘE ZJ1ST3LI(BL,P:3NTEGER;VAR N.M 
: 1 NTEGER 3; 

VAR 0: 3 NTEGER ; 

BEGIN 

N:-P; 

REPEAT 

N:-N-1 .-HPRVEKÍBL.N.UNE) ; 

UNTIL PL1NE.X-MAXINT; 

M : ■ -P ; O : -POCETPRVKU ( BL , L I NE 3 ; 

REPEAT 

M :■ -M-f 1 ; NPRVEK ( BL , M , L 3 NE 3 ; 

UNTIL (PL3NE.X-MAXINT) OR (M-0+1); 
M:-M-1; 

END; 

PROCEDUŘE ERASE ( BL : 3 NTEGER 3 ; 

VAR M,N,0 : 1NTEGER; 

OBJ :OBJT; 

BEGIN 
W 3 NDOW, 

M : -1 ; N :■ -POCETPRVKU ( BL , L 3 NE 3 ; 

WH1LE N>0 DO BEGIN 
NPRVEK(BL,M,L)NE); 

3F (PL3NE.X>1 00003 AND (PLINE.X<MAXINT 
3 THEN BEGIN 

ZJ IST3L3 (BL,M,N,0) ; 

FOR M:-N TO O DO SMAZ(BL,N,L1NE) ; . 

N : -POCETPRVKU ( BL , L 1 NE 3 1 1 ; M : -0 ; 

END; 

N:-N~1 ;M:-M+1 ; 

END; 

FOR OBJ :-ARC TO BLCK DO BEGIN 
M :— 1 ; 

FOR N = -l TO PXETPRVKU ( BL , OB J 3 DO BEG) 
N 

NPRVEK ( BL, M, OBJ); 

CASE OBJ OF 
ARC : O : -PARC . XC ; 

TEXT : O : -PTEXT . XP ; 

BL0K:0:-PBL0K.X 

END; 

3F 0>1 0000 THEN BEGIN 
SMAŽ ( BL , M, OB J 3 ; M :-M-1 ; END; 

M:-M+l; 

END; 

END; 

CLWA ; REDRAW ; OBNOVNAP 3 S ; 

END; 


PROCEDUŘE W1NDOW; 

VAR A-.CHAR; 

XR.YR: 1NTEGER; 

BEG]N 

AT(22,0);WR]TE( 'Left down corner 
'); 

A : -POHYBKUR (0,0, FALŠE); 

X3 : -XCUR ; Y3 = -YCUR ; XR : -XCUR ; YR : -YCUR ; 
AT(22,0);WR1TE( ’Ri ghl up corner '); 

A : -POHYBKUR ( XR , YR , TRUE ) ; 

X4 : -XCUR ; Y4 : -YCUR ; 

PBLOK. X : -0 ; PBLOK. Y:-0; PBLOK. CBL: -CHR (CU 
RBLOK) ; 

KŘESL H PBLOK, FALŠE); 

END; 

PROCEDUŘE PMCZAC; 

VAR A : CHAR; 

XR.YR: 1NTEGER; 

BEG1N 

W1NDOW; 

AT(22,0) ;WR]TE( 'New ]e(l down corner 
'); 

A : -POHYBKUR (0,0, FALŠE ) ; 

X4 : -ROUND ( ( XCUR-PANX *SCALE ) /SCALE ) -ROUN 
D( (X3-PANX*SCALE) /SCALE) ; 

Y4 : -ROUND ( ( YCUR-PANY *SCALE ) /SCALE ) -ROUN 
D( ( Y3-PANY*SCALE ) /SCALE ) ; 

END; 

PROCEDUŘE MOVECOPY ( MOVE : BOOLEAN ; BL , DX , D 
Y : ] NTE6ER ) ; 

VAR M,N,0,P,Q; 3NTEGER; 

OBJ : OBJT ; 

BEG1N 

Q : -POCETPRVKU ( BL , L 1 NE ) ; 

FOR N :— 1 TO Q DO BEG1N 
NPRVEK(BL,N,L1NE) 

]F (PLÍNĚ. X>Í0000) AND (PL1NE.X<MAX3NT 
) THEN BEG1N 
ZJISTILI (BL,N,M,0) ; 

1F MOVE-FALSE THEN BEG1N NPRVEK(BL,M, 
LINE) ;VLOZ(BL, LINE) ;END; 

FOR P:-Mt1 TO O DO BEG1N 
NPRVEK(BL,P,L1NE); 

)F PLÍNĚ. X>10000 THEN PLÍNĚ. X :-PLlNE 
.X-20000; 

ZMEN(BL,P,L1NE) ; 

PLÍNĚ. X:-PL3NE.X+DX;PL1NE.Y:-PL)NE.Y 
•tDY; . 

1F MOVE THEN ZMEN(BL,P,L1NE) 

ELSE VLOZ(BL.LINE); 

END; 

END; 

END; 

FOR OBJ :-ARC TO BLOK DO BEG1N 
Q : -POCETPRVKU ( BL , 08 J ) ; 

FOR N:-l TO Q DO BEG1N 
NPRVEK(BL,N,OBJ) ; 

CASE OBJ OF 

ARC : O : -PARC . XC ; 

TEXT :0:-PTEXT ,XP; 

BLOK : O : -PBLOK . X 
END; 

1F O>10000 THEN BEG1N 
CASE OBJ OF 
ARC:BEG1N 

PARC . XC : -PARC . XC- 20000 ; ZMĚN ( B 

L,N,OBJ); 

W1TH PARC DO BEG1N 
XC : -XC+DX ; YC ; -YC+DY ; 
XS:-XS+DX;YS:-YS+DY; 

END; 

END; 

TEXT :BEG1N 

PTEXT . XP ; -PTEXT . XP-20000 ; ZMĚN 
(BL,N,OBJ) ; 

PTEXT . XP : -PTEXT . XP+DX ; PTEXT . Y 
P : -PTEXT . YP+DY ; 

END; 

BLOK : BEG 3 N 

PBLOK . X : -PBLCK . X-20000 ; ZMĚN ( B 

L,N, OBJ ) ; 

PBLOK . X : -PBLCK . X+DX ; PBLOK . Y : - 
PBLOK. Y+DY ; 

END 

END; 

IF MOVE THEN ZMEN(BL,N,OBJ) 

ELSE VLOŽ ( BL, OBJ ); 

END; 

END; 

END; 

CLWA ; REDRAW ; OBNOVNAP 1 S ; 

END; 


PROCEDUŘE VYPAN ( ZPX , ZPY : REÁL ) ; FORWARD ; 
PROCEDUŘE PRL3NETYPE; 

VAR A: INTEGEtf; 

BEG3N 

AT(22,0) ;WR1TE( 'Number of pereel line* 
'); 

AT ( 22 , 24 ) ; READLN , READ ( A ) ; 

1F (A>??) OR (A<1) THEN A : -1 ; 

CURLT ; -A ; 

AT(22,0) ;WR]TE( 'Distance beiween lineš 
'); 

ATÍ22, 24) ,READLN;READ(A) ; 

1F (A>?9) OR (A<0) THEN A = -l; 

CURLT :-CURLT+A*1 00; 

OBNOVNAP 1S; 

END; 

PROCEDUŘE PRPAN; 

VAR ZPX, ZPY: REÁL; 

BE61N 

AT(22,0) ;WR]TE( 'Enter X coord. 

'); 

AT(22, 17) ; READLN; READ (ZPX) ; 
AT(22,0);WR1TE( ‘Enier Y coord. 

'); 

AT ( 22 , 1 7 ) ; READLN ; READ ( ZPY ) ; 

ZPX : --ZPX ; ZPY : —ZPY ; 

VYPAN ( ZPX , ZPY ) ; 

CLWA ; REDRAW ; OBNOVNAP 1 S ; 

END; 

PROCEDUŘE PRZOOM ; 

VAR SC,ZX,ZY :REAL; 

BEG1N 

REPEAT 

AT(22,0) ;WR1TE( ‘Enler sole 1: 

'); 

AT(22, 14) ; READLN; READ (SC) ; 

LWT1L (SO-1) AND (SC<100); 

SC=-1/SC; 

ZX : - ( PANX-1 00/SCALE ) /8 ; 

ZY : - ( PANY-60/SCALE ) /8 ; 

SCALE :-SC; 

VYPAN (ZX,ZY); 

CLWA ; REDRAW ; OBNOVNAP 1 S ; 

END; 

PROCEDUŘE VYPAN; 

BEG1N 

PANX : -ROUND ( ZPX * 8+ 1 00/SCALE ) ; 

PANY : -ROUND (ZPY»8+80/SCALE) , 

END; 

PROCEDUŘE PRSAVE; 

VAR A:CHAR; 

OD, DOB: 1NTEGER; 

NAME:ARRAY(1 . .8) OF CHAR; 

BEG1N 

NAME:-' 

AT(22,0) ;WR]TE( 'First block 
'); 

A:-FCEMNU(P0CPR]K+1); 

OD : -MNUA+MNUR ; 

AT(22,0) ;WRITE( ' L.sť); 

A:-FCEMNU(OD); 

DOB:-mUA+MNUR; 

AT(22,0);WR]TE( 'Netne ’); 

AT ( 22 , 5 ) ; READLN ; READ ( NAME ) ; 

NAMEÍ61 . 1 ; NAME [71 J 1 .NAMEÍ8] :-'M’ ; 
TOUTÍNAME, ADDR( JMENA)i- 6» (OD-1 ) , (DOB-O 
Dtl ) ) ; 

OD : -OD-POCPR 3 K ; DOB : -DOB-POCPR I K ; 

NAMEÍ7] : — ' U 1 jNAMEIS) :-'K’ ; 

TOUT ( NAME , ADDR ( UK ) + 1 6 * ( OD- 1 ) , 1 é « ( DOB-OD 

+ 1 ) ) ; 

NAME(71 ' V * ;NAMEt81 = — ' S * ; 
T0UT(NAME,UK[0D1 .PRVKYtLINE) ,UK[D0B+1 3 . 
PRVKY [L1NE3-UKC OD 1 .PRVKYIL3NE) ) ; 

PAGE; 

ZOBRAZCAST ( MNUA ) ; OBNOVNAP 3 S ; 

PBLOK. X : -0 ; PBLOK. Y:-0 ; PBLOK. CBL: -CHR (CU 
RBLOK); 

KŘESL 1 ( PBLOK , TRUE ) ; KURZOR ( XCUR , YCUR ) ; 
END; 

PROCEDUŘE PRLOAD; 

VAR N,M,D1F ; 1NTEGER; 

NAME ; ARRAY C 1 . .83 OF CHAR; 

POB J : OBJT ; 

BEG3N 

NAME:-' 

AT(22,0) ;WR1TE( 'Name 
'); 

AT ( 22 , 5 ) ; READLN ; READ ( NAME 3 ; 

NAMEC6) ' ;NAMEC73 :-' J ' ;NAME[83 :-'M' ; 
AT(22,0); 


T 1 N ( NAME , ADDR ( JMÉNA ) +é * ( POCPR 1 K+PBLAKT ) 

) ; 

N:-PBLAKT+P0CPR3Ktl ; 

WH1LE (N<-JMCELKEM) AND (JMENAtN)o' 

’) DO N:-N+l; 

N :-N~1 -POCPR] K; 
NAME[73:-'U';NAME(83:-’K'; 

T3N(NAME, ADDR(UK)tl6»PBLAKT) ; 

D 3 F : -UK [ PBLAKT+1 1 . PRVKY (L 1 NE 3 -ENDOF ; 

1F UK[N].PRVKYtBLOK3+5»UK[N3.POCET[BLOK 
1-D3F<T0PMEM Th€N BEG3N 
FOR M :-PBLAKT+l TO N DO BEG3N 
FOR POBJ ;-LlNE TO BLOK DO 
UK IMI .PRVKY [POBJ 3 :-UKtM3 .PRVKY [POBJ 3- 
D1F; 

END; 

D3F : — UKfNl . PRVKY [ BLOK 1+5*UK (NI .POCETIBL 
OKI; 

1F N<PBLMAX Th€N BEG1N 
FOR M:-N+1 TO PBLMAX DO BEG1N 
FOR POBJ :— LINE TO BLOK DO UKtMl .PRVKY 
[POBJ] = -D 1 F ; 

END; 

END; 

NAMEI71 :-'V' ;NAME(83 :-'S' ; 
T1N(NAME,END0F) ; 

PBLAKT :-N;ENDOF :-D3F; 

END 

ELSE BEG1N 

AT ( 22 , 0 ) ;WR3TE( 'No memory for filé 
'); 

PAUSE (30000) ;END; 

PAGE; 

ZOBRAZCAST ( MNUA ) ; OBNOVNAP 1 S ; 

PBLOK . X : -0 ; PBLOK . Y : -0 ; PBLOK . CBL : -CHR ( CU 
RBLOK); 

KŘESL 3 (PS.OK, TRUE ) ; KURZOR ( XCUR , YCUR ) ; 
END; 

BEG3N 

1N3T1AL; 

REPEAT 

CISLO:-CPRIK( POHYBKUR (0,0, FALŠE) ) ; 

1F C1SL0-1? THEN PRLlřE; 

1F C1SLO-20 THEN PRARC; 

)F C1SL0-21 THEN PRTEXT; 

1F C1SLOPOCPRIK THEN PRa.0K(C3SL0) ; 

1F C3SL0-1 THEN PROPEN; 

1F C3SLO-2 THEN PRCURR; 

1F C1SL0-7 THEN ERASE ( CURBLOK ) ; 

1F C1SL0-5 THEN BEG1N 

PMCZAC; 

MOVECOPY ( TRUE , CURBLOK 

,X4,Y4);END; 

1F C3SLO-6 THEN BEG1N 

PMCZAC; 

MOVECOPY ( FALŠE , CURH.0 

K,X4,Y4);END; 

3F C1SL0-8 THEN PRL3NETYPE; 

1F C3SL0-11 THEN PRZOOM; 

1F C1SL0-12 THEN PRPAN; 

1F C1SL0-15 THEN PRSAVE; 

1F CISLO-lF THEN PRLOAD; 

UNT1L FALŠE; 

END. 


Výpis 2. Program ZCF (929-V2) 


PROGRAM A; 

CONST PBLMAX-60; 

POCPR3K-23; 

JMCELKEM-83; 

OFFSET-*C350 ; TOPMEM-*EA00 ; 

TYPE L1NET-REC0RD 

X,Y: INTEGER.END; 

ARCT-RECORD XC , YC , XS , YS , A , U = 1 NTEGE 
R;END; 

TEXTT-RECORD VELIKOST : CHAR; XP.YP: 1 
NTEGER;T: ARRAY (1 . .5) OF CHAR ; END ; 
CSJT-(L]NE,ARC,TEXT,a.(K); 

UKAŽ AT ELE- ARRAY [ 1 . . PBLMAX 1 OF RE 


RVKY:ARRAYIL3NE. .BLOK! OF 3NTEGER; 

P 

OCET: ARRAY [LI NE. .BL0K3 OF 1NTEGER; 

E 

ND; 

BLOKT-RECORD X,Y: 3NTEGER; CBL: CHAR; 

END; 


NAMET-ARRAY [ 1 . . 1 0] OF CHAR; 
STRJNG-ARRAYfl . .10] OF CHAR 
MALYSTR ] NG-ARRAY [ 1 . . 5 3 OF CHAR; 

VAR PL 1 NE : L 1 NET ; PARC : ARCT ; PTEXT : TEXTT • P 
BLOK:BLOKT; 

PBLAKT : ] NTEGER ; 

UK : UKAZATELE ; ENDOF : 3 NTEGER ; 

JMÉNA: ARRAYM . .JMCELKEM.1 . .6) OF CH 
AR; 

C3SRET-.STR3NG; 

PROCEDUŘE C3SPREV(C:REAL); 

VAR A,B:REAL;N; INTEGER; 

FUNCTION POMC(B:REAL):CHAR; 

BEG3N 

POMC : -Off? ( ROUND ( ( A- ( ENT ] ER ( A/B/1 0 ) » 1 0 t0 
*FRAC(A/B)»B))/B)*48); 

END; 

BEG1N 

A:-ABS(C);B:-1000;C]SRET:- , 

1F C<0 THEN C3SRETI1 ; 

FOR N:-3 DOWNTO 0 DO BEG1N C1SRET[5-N1 = 
-POMC(B) ;B:-B/10;END; 

C3SRET(6) 

FOR N:— 1 DOWNTO -2 DO BEG3N CISRETté-N 
3 ; -POMC ( B ) ; B ; — B/ 10; END ; 

END; 

PROCEDUŘE 0DVYS4 ( T : STR ] NG ) ; 

VAR N; INTEGER; 

BEG3N 

FOR N:-l TO 10 DO BEG3N 
P0KE(lé384,T[Nl ) ; 

] M. 1 NE ( *3A , 0 , *40 , *CD , *5D , *EC ) ; END ■ 

END; 

PROCEDUŘE 0DVYS5(T:STR1NG); 

’ VAR N: INTEGER; 

BEG3N 

T(101:-CHR(13); 

FOR N:-l TO 10 DO BEG3N 
POKEÍ 16384, T(N) ) ; 

3NLIN£(*3A,0,*40,*CD,*60 ,*EC) -END- 
END; 

PROCEDUŘE ODVENT; 

VAR S:STR]NG; 

BEG3N 

SC101 :-CHR(13);0DVYS4(S); 

END; 

PROCEDUŘE ODVCAR; 

BEGIN 

0DVYS4C, '). 

END; 

PROCEDUŘE MA ( X , Y : REÁL ) ; 

BEG3N 
0DVYS4 ( ' MA 

CISPREV(X) ; ODVYS4 ( C 3 SRET ) ; 

ODVCAR; 

CISPREV(Y) ; 0DVYS4 ( C 3 SRET ) ; 

ODVENT; 

END; 

PROCEDUŘE VA ( X , Y : REÁL ) ; 

BEGJN 

0DVYS4CVA '); 

CISPREV(X) ;ODVYS4(C3SRET) ■ 

ODVCAR; 

CISPREV(Y) ; 0DVYS4 ( C 3 SRET ) ; 

ODVENT; 

END; 

PROCEDUŘE OG(X,Y:REAL); 

BEGIN 

0DVYS4C0G ’); 

C 3 SPREV ( X ) ; ODVYS4 ( C 3 SRET ) ; ODVCAR ; C 3 SPRE 
V ( Y ); 0DVYS4 ( C I SRET ); ODVENT , 

END; 

PROCEDUŘE MF; 

BEGIN 0DVYS4( '!“F ' ) ; ODVENT; END- 

PROCEDUŘE SC ( S : REÁL ) ; 

BEGJN 

0DVYS4 ( ' SC ' ) ;C3 SPREV (S) ,-0DVYS4( 

Cl SRET); ODVENT; END; 

PROCEDÍME LT ( L : 3 NTEGER ) ; 

BEGJN ODVYS4CLT ' ) ;CJSPREV(L) O 

DVYS4(C] SRET); END; 

PROCEDUŘE CS(X,Y:REAL); 

BEGIN 
0DVYS4 ( 1 CS 

CISPREV(X) ; 0DVYS4 ( C 3 SRET ) ; ODVCAR C3 SPRE 
V(Y) ;ODVYS4(C3SRET) ; 

0DVYS4C; ' ) ; ODVENT; 

END; 

PRXEDURE AC(A,B,C:REAL) • 

BEG3N 

0DVYS4CAC ')• 


CJSPREV(A) ; ODVYS4 ( C3SRETT ;ODVCAR; 
C)SPREV(B) ;ODVYS4(C3SRET) ;ODVCAR; 

C 3 SPREV ( C ); ODVYS4 ( C 3 SRET ); ODVENT ; 

END; 

PROCEDUŘE SPEED (S : INTEGER ) ; 

BEGIN 

POKE(*EBAD,S) ;END; 

PROCEDUŘE L3řETL(X1,Yl,X2,Y2, A: INTEGER) 

VAR N,M.MFX,MFY:JNTEGER;M1,M2,XR,YR:REA 

BÉG3N 
LT ( 0 ) ; 

IF A-2 THEN BEGIN A;-l ;LT(3) ;END; 

IF A-3 TFEN BEGJN A:"l ;LT(2) ;END; 

N:-A MOD 100; A:-A D3V 100- 
Ml :~SQRT(SQR(X2-X1 )+SQR(Y2~Y1 ) ) • 

IF Ml-0 THEN Ml ;-l ; 
M2:-(Y2-Yl)/Ml»A»(N-l)/2; 

Ml :-(X2-Xl)/Ml»A*(N-l)/2; 

X2:-X2-X1;XR:-X1-M2; 

Y2:-Y2-Y1;YR:-Y1+M1; 

3F N>1 THEN BEG3N Ml :-M1/( (N~l )/2) M2 : - 
M2/((N-1)/2);END; 

FOR M:-l TO N DO BEGIN 
XI :-ROUND(XR) ;Y1 :-R0UND(YR) • 

MA(Xl.Yl); 

VA(X1+X2, Y1+Y2) ; 

XR : -XR+M2 ; YR : -YR-MÍ ; 

END; 

END; 

PROCEDUŘE ARCTLÍXC.YC.XS.YS.U, A: INTEGER 

VÁR POCUHEL, KONUHEL.PR.PS : REÁL- 
M. CAR, VZD: INTEGER; 

BEGIN 
LT ( 0 ) ; 

IF A-2 THEN BEGIN A;-l ; LT ( 3 ) ;END; 

3F A-3 THEN BEGJN A:-l ; LT ( 2 ) ;END; 

CAR: -A MOD 1 00 ; VZD : —A DIV 100; 

PR : -SORT ( SQR ( XS-XC ) +SQR ( YS-YC ) ) 

3F U<0 THEN PR:— PR; 

POCUHEL : -ARCTAN ( ( YS-YC ) / ( XS-XC+0 . 01 ) ) • 

3F ( XS-XC )<0 THEN POCUHEL . -POCUHEL+3 . í 4 
15?; 

KONUHEL : -POCUHEL+U/1000 ; 

IF KONUHEL>6 . 2832 THEN KONUHEL :■ -KONUHEL 
-6.2832; 

IF ABS(U)>6l?6 THEN KONUHEL : -POCUHEL 
PS:-PR-(CAR-1)/2»VZD; 

FOR M :— 1 TO CAR DO BEGJN 
MA(XC.YC); 

AC( PS, POCUHEL. KONUHEL) ; 

PS:-PS+VZD; 

END; 

END; 

PROCEDUŘE TEXTKRES (VELÍ KOST: CHAR ;XP YP: 
INTEGER; T:MALYSTR1NG); 

VAR N : INTEGER ; 

VEL : REÁL; 

Tl:ARRAYfl. .101 OF CHAR; 

BEGJN 

VEL = -ORD (VELÍ KOST) /2* 8; 

TI:- 1 

MA(XP.YP) ; 

CSÍVEL, VEL) ; 

FOR N:-1 TO 5 DO T1(N1:-T[N1- 
TI (61 : — CHR (13); 

0DVYS5ÍT1 ) ; 

END; 

PROCEDUŘE LD1R(HL,DE,BC: INTEGER) • 

BEGIN 

IF BO0 THEN BEGIN 

POKE ( 23600 , HL ) ; POKE ( 23602, DE ) ;POKE (2 
3604, BC ); 

1NLJNE (♦2A,*30,*5C,*ED, ♦5B,*32 *5C *£0 
,*4B,*34,*5C) ; 

IM-lřE (*ED,*B0) ; 

END; 

END; 

PROCEDUŘE LDDR ( H. . DE , BC : 3 NTEGER ) • 

BEGIN 

IF BO0 THEN BEGJN 

POKE ( 23600 , HL ) ; POKE ( 23602 , DE ) ; POKE ( 2360 
4,BC); 

INL1NE (♦2A,<50,'*5C,*ED,*5B,*32,*5C *ED 
, *4B , *34 , *5C ) ; 

1NL1NE (*ED,*B8) ; 

END; 

END; 

FUNCT I ON POCETPRVKU (BLOK : I NTEGER ; OB J : OB 
JT) : INTEGER; 


KG3N 

POCETPRVKU : -UK [ BLOK 1 . POČET ( OB J 1 • 

END; 

PROCEDUŘE POINTERS(BL,M: 1 NTEGER; OBJ : OBJ 
T); 

VAR N: INTEGER ; 

POBJ : OBJT ; 

BEGIN 

3F OBJ<BLOK THEN BEGIN 
FOR POBJ :-SUCC( OBJ) TO BLOK DO 
UK(BL) .PRVKY (POBJ) : -UK f BL 1 .PRVKY (POBJ 
1+M; 

END; 

IF BL<PBLMAX THEN BEGIN 
FOR N:-BL+1 TO PBLMAX DO BEGIN 
FOR POBJ: -LI NE TO BLOK DO 
UK [NI ,PRVKY[P08J1 : —UK [ N I .PRVKYIPOBJ) 
+M; 

END; 

END; 

ENDOF :-ENDCF+M; 

END; 

PROCEDUŘE ADLEN( OBJ: OBJT; VAR N,M: 3NTEGE 
R); 

BEGIN 

CASE OBJ OF 

LINE:BEGIN N :-ADDR(PLINE) ;M;-4;END- 
ARC : BEG 1 N N : -ADDR ( PARC ) ; M : -1 2 ; END ■ 

TEXT : BEG 3 N N : -ADDR ( PTEXT ) ; M : -1 0 • END ; 
BLOK: BEG 3 N N :-ADDR(PBLOK) ;M:-5;END 
END. * 

END; 

PROCEDUŘE hPRVEK ( BL , O : 3 NTEGER ; OB J : OB JT ) 


VAR N,M: INTEGER; 

BEGIN 

ADLEN(OBJ,N,M) ; 

LDIR((0-1)tM+UK[BLI . PRVKY ( OBJ 1 , N M) • 
END; 

PROCEDUŘE BLOKKRES ( BLK : BLOKT ) ; 

VAR XI. Y1,X2,Y2,M,N, A1P.BL: INTEGER; 
BEGIN 

BL:-ORD(BLK.CBL); 

N : -POCETPRVKU ( BL , L 1 NE ) ; M : - 1 ; 

WHILE N>0 DO BEGIN 
NPRVEK(BL,M,L1NE); 

IF PL1NE.X-MAX3NT THEN BEGIN 
A1P:-PUNE.Y; 

NPRVEK(BL,M-tl ,L3NE) ; 

XI : -PL 3 NE . X ; Y 1 : -PL JNE.Y; 
NPRVEKO_,M-+2,LlNE) ; 
X2:-PL1^.X;Y2:-PLINE.Y; 
M:-M+2;N:-N~2; 

END 

ELSE BEGIN 

XI : -X2 ; Y 1 :-Y2;X2:-PL JNE.X; Y2 :-PL JNE . 
Y; 

END; 

LlNETL(XltBLK.X,Yl-tBLK.Y,X2+BLK.X,Y 

2tBLK.Y,A3P); 

N :— N~1 ;M : -M+1 ; 

END; 

N : -POCETPRVKU (BL, ARC); XI :-BLK.X;Yl :-BLK 
•Y; 

3F N>0 THEN BEGIN 
FOR M:-l TO N DO BEGIN 
NPRVEK (BL , M, ARC) ; 

WJTH PARC DO BEGIN 
XC:-XC+X1;YC:-YC+Y1; 
XS:-XS+X1;YS:-YS+Y1; 
ARCTL(XC,YC,XS,YS,U, A) ; 

END; 

END; 

END; 

N : -POCETPRVKU (BL, TEXT); 

IF N>0 THEN BEGIN 
FOR M :— 1 TO N DO BEGIN 
NPRVEK (BL,M, TEXT); 

WITH PTEXT DO BEGIN 
XP:-XP+X1 ; YP :-YP+Y1 ; 

TEXTKRES ( VEL I KOST , XP , YP , T ) ; END ■ 

END; 

END; 

N : -POCETPRVKU ( BL , BLOK ) ; 

3F N>0 THEN BEGJN 
FOR M : — 1 TO N DO BEGJN 
NPRVEK ( BL, M, BLOK ); 

WITH PBLOK DO BEGIN 
X:-X+X1;Y:-Y+Y1;END; 

BLOKKRES (PBLOK) ; 

END; 


END; 

EM); 

PROCEDUŘE PRLOAD; 

VAR N,M,D1F : INTEGER; 

NAM£:ARRAYt1 ..81 OF CHAR; 

POBJ :OBJT; 

BEG1N 

NAHÉ:-' 

AT(20,0);WR3TE(‘N«me 

’); 

AT ( 20 . 5 ) ; READLN ; READ ( NAME ) ; 

NAMEC81 . ' ;NAMEt71 J' ;NAICt8) :-'H' ; 
T 1 N ( NAME , ADDR ( JMÉNA ) +6» ( POCPR ] K+PBL AKT ) 

) ; 

N ; -PBLAKT+POCPR ] K+ 1 ; 

WHILE (N<- JMCELKEM) AND ÍJMENAlNlo' 

’) DO N-.-N+1; 

N :-N-1 -POCPR 1K; 

NAMEI71 :-'U' ;NAMEI8I :-'K'; 
TIN(NAME,ADDR(UK)-U6*P8LAKT); 

D ] F : -UK [ PBLAKT-tl 1 . PRVKY t L 1 NE ) -EfCOF ; 

]F UKIN1 . PRVKY [ BLOK 1+5*UK[ NI . POČET ! BLOK 
)-DlF<TOPMEM THEN BE6IN 
FOR M:-PBLAKT+1 TO N DO BE61N 
FOR POBJ: -LINE TO BLOK DO 
UKÍM1 .PRVKY [POBJ] :-UKC!Íl .PRVKYÍPOBJI- 
D1F; 

END; 

D1F UKIN1 . PRVKY [BLOK ]+5*UK INI .P0CET!BL 
OKI; 

1F N<PBLfiAX THEN BE63N 
FOR M:-N+l TO PBLMAX DO BEGIN 
FOR POBJ : —LINE TO BLOK DO UKtNl. PRVKY 
[POBJ] :-DlF; 

END; 

END; 

NAMEÍ7] :-'V' ;NAT£[81 :-'S' ; 
T]N(NAME,ENDOF); 

PBLAKT :-N;ENDOF ;-DlF; 

END 

ELSE BEGIN 

AT(20,0) ;WR]TE( 'No roemory for filé 
'); 

END; 

END; 

PROCEDUŘE 1N1T; 

VAR N:lNTEGER;POBJ:OBJT; 


BEGIN 

FOR N =— 1 TO PBLMAX DO BEGIN 
FOR POBJ ;-L]NE TO S-OK DO BEGIN 
UKtNl .PRVKY [POBJ] : -OFFSET; 

UKtNl .POCETtPOBJ] :-0; 

END; 

END; 

ENDOF: -OFFSET; 

FOR N : — 1 TO JMCELKEM DO JMENAfNl 

0UT(127,CW(1S3)); 

PBLAKT :-0; 

END; 

PROCEDUŘE VYP3SBL0KU; 

VAR N: INTEGER; 

BEGIN 

PAGE; 

FOR N:-P0CPR1K+1 TO JMCELKEM DO BEGIN 
WR1TE(CHR(20) ,CHR(1 ) ) ; 

WR]TE( (N-POCPR1K) :2,CHR(20) ,CHR(0) ) ;WR 
] TE( JMÉNA INI); END; 

END; 

PROCEDUŘE PROVÁDĚNI ; 

VAR VX, VY, SCALE: REÁL; 

MFX , MFY , RYCH.OST , OTC : 1 NTEGER ; 
POCETKB: INTEGER; 

CKB:ARRAYtl..10] OF INTEGER; 

N: INTEGER; 

BEGIN 

REPEAT 

1N3T; 

PAGE; 

REPEAT 

WR1TELNÍ ’Lo.dIn 3 filé for drowl n 3 ' ) ;WR] 
TELN ; WR ] TELN ; WR ] TELN ; 

PRLOAD; 

WR1TELNCA1] fil«* lo.d.d ? (Y/N) '); 
REPEAT UNT1L 3ICH<>CFR(0); 

UNT1L 1NCH-'Y'; 

OUT ( 1 27 , CHR (1531); 

WR]TELN( 'Poromelr* of dr»wl ng ' ) ;WR]TELN 

WR1TE( 'Originál poínl X.. '); READLN ; REA 
D(VX); 

MR1TEC Y.. ' ) ; READLN; REA 

D(VY) ; 

WRITELN.WRlTECScle ');R£ 

ADLN ; READ ( SCALE ) ; 


WRlTEÍN;WR]TE('Orleni.iion ’];RE 

ADLN ; READ ( OTC ) ; 

WR1TELN;WR3TE( 'Spted 1X1 ');RE 

ADLN; 


nu mi , 

READ ( RYCHLOST ); WR 1 TELN ;WR1TE1N CS. i ori 
g 1 n b 3 point (0..exiL)'); 

POKE ( +EA78 , CHR ( 223 ) ) ; POKE ( *EA7C , CHR < 21 S 
) ) ;POKE(+EA80 / CHR(207) ) ; 

POKE ( *EA64, CHR ( 1??)); 

1F OTC-3 TFEN BEGIN P0KE(*EA78 < CHR(2lS) 

) ; POKE (♦EA7C, CHR (223) ) ;END; 

1F OTC-2 ThEN BEGIN POKE(*EA78,Ct-K(207) 

I ;POKE(*EA7C,CHR(19?) ) ; 

POKE ( *EA80 , CW ( 21 S )); POKE < *£A 
84, CHR (223) ) ;END; 

USER (+EC54) ; 

W; 

fFX : -PEEK ( *EC66 , 3 NTEGER ) ; 

MFY :-PEEK( (MFX+2) , INTEGER) ;MFX :-PEEK(MF 
X, INTEGER); 

OG ( MFX-SCALE* VX , MFY-SCALE*VY ) ; 

SC ( SCALE ) ; SPEED ( ROUND ( 1 2300/RYCH.OST ) ) ; 
VYP 3 SK.0KU ; WR 1 TELN ; WR 3 TELN ; 

REPEAT 

WRlTEf 'Nubor of bloct<s ' ) ;READLN;REA 
D( POCETKB) ; 

UNT1L (PXETKB>0) AND (PXETKB<11); 
WR3TELN;WR]TELN; 

FOR N :— 1 TO POCETKB DO BEG3N 
AT (20,0) ;WR]TE( ' 

'); 

AT(20,0);WR]TE(N, ' . . . . ' ) ;R£ADLN;READ( 
CKBCN1 ) ; 

END; 

WR]TELN;WR]TELN( ' 1 .m drawing ' ) ;WR3TELN 

FOR N ; — 1 TO POCETKB DÓ BEG3N 
PBLOK . X : -0 ; PBLOK . Y : -0 ; PBLOK . CBL : -CW ( C 
KBIN) ) ; 

BLOKKRES(PBLOK) ; 

END; 

WR]TELN( 'Lo.d ■ new filé (Y/N)’); 

REPEAT UNT3L ]NCH<>CHR(0); 

UN71L ÍNCH-^'; 

END; 

BEGIN 

PROVÁDĚNI; 

END. 
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RÉš : j 


Ing. Jiří Kohout, Na Svihance 12, 120 00 Praha 2 


V příručce dodávané s tiskárnou BT tOO je uveden i program pro její obsluhu. Délka tohoto programu je 
přibližně IkB, dalších 500 bajtů zabírá vyrovnávací paměť tiskárny. Umožňuje použití příkazů LLIST 
a LPRINT a.kopii obrazovky. Program však neumí tisknout implicitně definované grafické znaky a znaky 
definované uživatelem v oblasti UDG a v příkazu LPRINT nemá příkaz TAB pro tabelaci výpisu účinek. Proto 
byl vytvořen program, který uvedené nedostatky odstraňuje a navíc je podstatjiě kratší. 


Program pro spolupráci tiskárny BT 100 
s mikropočítačem ZX Spectrum je dlouhý 
706 bajtů, používá standardních příkazů 
LLIST a LPRINT (LPRINT i ve spojení s pří- 
kazem TAB), tiskne všechny grafické znaky, 
písmo lze zvolit s normálním sklonem nebo 
šikmé. Typ písma může být změněn ulože- 
ním vlastního souboru znaků do RAM a pří- 
slušnou změnou systémové proměnné 
CHARS (zde je uložena adresa počátku 
tabulky znaků minus 256). Ukázka různých 
typů písma je na obr. 1. Program též umož- 
ňuje kopii obrazovky, příklad je na obr. 2. 


Jako vyrovnávací paměť pro tiskárnu je vyu- 
žita část obrazové paměti (horní třětina obra- 
zovky), která při obsluze tiskárny většinou 
nebývá využita; navíc je na obrazovce vidět, 
co se právě tiskne. 

Tiskárna je připojena k počítači 
přes rozhraní s obvodem 8255 (zapojení 
bylo v AR již několikrát publikováno, lze 
též použít výrobek Tesly Kolín, který je 
prodáván pod označením UR-4). Pro ko- 
munikaci počítač-tiskárna je použit kanál C, 
kde bity CO až C3 jsou naprogramovány jako 
výstupní a bity C4 až C7 jako vstupní. 


Nyní stručně k vlastnímu programu (viz 
Výpis 1). Řádky 140 až 250 (rutina INIT) 
naprogramují obvod 8255, do tabulky kaná- 
lových informací na adresu 23749 (#5CC5) 
uloží startovací adresu obslužného pro- 
gramu (při prvním vstupu adresu STAŘT1, 
kde se vymaže horní třetina obrazovky, při 
dalších vstupech pak adresu START) a na- 
staví počitadlo řádků. 

Řádky 450 až 1060 rozliší podle kódu 
v registru A o jaký typ znaku se jedná a do 
registrového páru DE uloží adresu prvního 
bajtu znaku. 



Kódy menší než 32 jsou ignorovány s vý- 
jimkou hodnoty 13 - konec řádku, 23 - TAB 
a 20 - INVERSE. Kódy 32 až 127 jsou 
standardní znaky ASCII, adresa prvního baj- 
tu znaku se vytvoří na řádcích 1 030 až 1 060. 
Kódy 1 28 až 143 reprezentují implicitně defi- 
nované grafické znaky, znak se tvoří pomocí 
rutiny v ROM začínající na adrese #0B38. 
Znak je pak uložen v systémové proměnné 
MEMBOT, kde začíná zásobníková paměť 
kalkulátoru. Tato rutina je na řádcích 730 až 
750. Kódy 1 44 až 1 64 určují znaky definova- 
né uživatelem v oblasti RAM, tuto oblast 
adresuje systémová proměnná UDG. Adre- 
sa prvního bajtu příslušného znaku je určena 
na řádcích 680 až 71 0. 1 65 až 255 jsou kódy 
pro tokens, tvorbu jednotlivých znaků zajiš- 
ťuje rutina ROM na adrese #09F4 (řádky 
600 až 610). 

Rutina ULOŽ na řádcích 1070 až 1280 
uloží jednotlivé bajty znaků do obrazové 
paměti, která slouží jako vyrovnávací paměť 
pro tiskárnu. 

Na řádcích 1 1 90 až 1 280 se kontroluje, 
zda není překročen povolený počet znaků na 
řádek. 

Na řádku 1 290 se rozhoduje, zda se znaky 
budou tisknout normálně nebo šikmo. Při 
tisku šikmých znaků se před vstupem do 
vlastní tiskové rutiny provede posun jednotli- 
vých bitů ve vyrovnáVací paměti o 1 až 
7 tiskových bodů vpravo - řádky 1520 až 
1760. 

Na řádcích 1 320 až 1 500 je volána tisková 
rutina TISK, po vytisknutí celého řádku je 
vynulována vyrovnávací paměť a je testo- 
ván počet vytisknutých řádků. Při překročení 
předem nastaveného počtu se program za- 
staví a po stisknuti libovolné klávesy pokra- 
čuje v tisku - řádky 1 400 až 1 500. Vytisknutí 
celé stránky je signalizováno pípáním. 

Rutina na řádcích 1 780 až 1 840 vypočítá 
-adresu prvního bajtu znaku. Při vstupu do 
rutiny je v registrovém páru BC adresa za- 
čátku příslušné tabulky znaků (v ROM nebo 
v RAM) a v registru A je pořadové číslo 
znaku (první znak v tabulce má pořadové 
číslo nula). > 

Na řádcích 1870 až 1940 je vynulována 
vyrovnávací paměť. 

Vlastní tisková rutina TISK začíná na řád- 
ku 1 960. Nejprve se provede návrat vozíku 
a pak se testují vždy dva nad sebou ležící 
mikrořádky vyrovnávací paměti (jeden tisko- 
vý řádek se skládá z osmi mikrořádkú). 
Pokud jsou oba nulové, posune se dvakrát 
papír v tiskárně a pokračuje se testem dal- 
ších dvou mikrořádkú. Je-li alespoň jeden 
bajt v některém mikrořádkú různý od nuly 


Obr. 2. Ukázka ko- 
pie obrazovky 
(902-2) 



(tzn. že je třeba tisknout), je v registrech 
D a E na řádku 2140 počet znaků zleva, které 
je třeba vytisknout. Vlastní test se provádí 
rutinou TEST na řádcích 3070 až 3200. 

Řádky 2150 až 2630 vytisknou celý tisko- 
vý řádek (osm mikrořádkú). Tiskne se střída- 
vě lichý mikrořádek (při posunu vozíku zleva 
doprava) a sudý mikrořádek (při posunu 
vozíku zprava doleva). 

Stiskne-li se tlačítko Q, tisk se zastaví po 
vytisknutí celého tiskového řádku a provede 
se skok do BASIC (řádky 2640 až 2690). 
Změnou hodnoty na řádku 2650 (v instrukci 
CP 81) lze změnit klávesu, kterou se zasta- 
vuje tisk. 

Tisk jednoho bajtu provádí rutina na řád- 
cích 2740 až 2930. Bajt je rotován do indiká- 
toru C Y buď vpravo nebo vlevo v závislosti na 
směru tisku (řádek 2750). 

Rutina GR na řádcích 2950 až 3050 prove- 
de návrat vozíku, rutina PS_PAP (řádky 3220 
až 3320) posune papír v tiskárně o jeden 
mikrořádek. 

_ Rutiny C60 (řádky 3340 až 3400) a C70 
(řádky 3420 až 3600) synchronizují tisk. 
O poloze vozíku tiskárny informují bity 
7 a 6 na portu 95. Je-li bit 7 roven nule, 
vytiskne se jeden bod. Bit 6 slouží k určení 
začátku mikrořádkú při tisku zprava i zleva. 

Rutina na řádcích 3620 až 3660 jemně 
nastavuje synchronizaci tisku svislých čar. 

Změnou hodnoty v registru A. popřípadě 
přidáním dalších instrukcí NOP lze nastavit 
přesnou polohu vytisknutých bodů. Záleží na 
rychlosti posuvu vozíku, uvedené hodnoty 


vyhovovaly při rychlosti tisku 170 bodů/s. 
Rychlost vozíku lze nastavit trimrem na des- 
ce motorů (deska je umístěna podél přední 
strany tiskárny). 

Obrazovku kopíruje program COPY na 
řádcích 280 až 400. Nejprve se provede 
inicializace tiskárny a nastaví se šířka tisku 
na 32 znaků/řádek. Potom se postupně vy- 
tiskne všech 24 tiskových řádků obrazovky 
(vždy po vytisknutí jednoho tiskového řádku 
rutina POSUV na řádcích 3680 až 4090 
posune do bafru další tiskový řádek), konec 
tisku je signalizován pípáním a po stisku 
libovolné klávesy se provede návrat do BA- 
SICu. Je-li program nahrán od adresy A 
(v uvedeném případě A=64000), inicializa- 
ce se provede příkazem RANDOMIZE USR 
A, pak již mohou následovat BASIC příkazy 
LLIST nebo LPRINT. Formát tisku lze nasta- 
vit uložením příslušných hodnot na následu- 
jící adresy: 


počet řádku na stránku 
počet znaků na řádek 
písmo normál 
písmo šikmé 
synchronizace tisku 


P0KE A +22, počet řádků 
P0KE A+216, počet znaků 
P0KE A +225,0 
P0KE A +225,46 
P0KE A+626, hodnota 


Obrazovka se zkopíruje příkazem RAN- 
DOMIZE USR A+-2. 


Program spolupracuje i s assemblerem 
GENS3, obslužný program pro tiskárnu pak 
lze zkrátit asi na 540 bajtů vypuštěním částí 
pro kopírování obrazovky, tisk grafických 
znaků a tisk šikmého písma. Konkrétně se 
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Obr. 1. Ukázka různých typů písma (902-1) 



vypustí řádky 40, 50, 110, 120, 230-250, 
280-400, 460-530, 560-590, 640-1010, 
1520-1760, 3680-4090, 4130 a 4140. Po 
tomto zkrácení programu se však změní 
výše uvedené adresy pro nastavení formátu 
tisku; úpravu si provede již jistě každý sám. 


Výpis 1. Obslužný program (902-V1) 


10 *c- 

20 , BT 100 pro LLI3T , 


23675 

23693 

23606 

23560 

04000 


5C7B 

40 

UDG 

EOU 

5C92 

50 

MEMBOT 

EGU 

5C36 

60 

CHflRS 

EGU 

5C03 

70 

L R ST K 

EOU 

4000 

30 

BfiFR 

EOU 


90 



FR00 

100 


ORG 

FR00 

110 


JR 

FR02 

120 


JR 


130 



FR04 

140 

INIT 

CALI 

FA07 

150 


LD 

FR09 

160 


OUT 

FR0B 

170 


LD 

FA0D 

180 


OUT 

FR0F 

190 


LD 

Ffi 12 

200 


LD 

FR 15 

210 

INIRAD 

LD 


54000 

INIT 

COPY 


ň , 154 
(87F) , fl 
fi , 255 
(95) , A 
HL . START 1 
(85CC5) ,HL 
fl , 75 
počet radKu 


FR17 

Ffilfl 

FfllB 

FR1E 

FA21 

FR22 

Ffl25 

FA27 

FR2R 

FR2C 

FA2D 

FR30 

FR33 

FR34 

FR36 

FR33 

FR3B 

FR3E 

FR3F 
FR42 
FR45 
FR4S 
FR49 
FR4R 
FR4D 
FR4F 
FR51 
FR54 
FR56 
FR53 
FR59 
FR5B 
F Ň5E 
FR60 
FR62 
FR64 
FR66 
FR63 
FR6B 
FR6D 
FR6E 
FR70 
FR72 
FR74 
FR76 


LD 


( P_RRD ) , R 
fi 

(RO_TRB) , R 
(AD_UID) , A 


220 

230 NUL_RD XOR 
240 LD 

250 LD 

260 RET 

270 

230 COPY 
290 
300 
310 • 

320 TCOP 
330 
340 
350 
360 
370 
380 
390 
400 
410 

'420 START 1 CRLL NULBFR 


CfiLL INIT 
LD fl , 32 

LD ( R COPY ) , fi 

LD B-,24 
PUSH BC 
CfiLL TISK 
CRLL POSUV 
POP BC 
DJNZ T COPY 
LD fi , 59 

LD ( R COPY ) , H 

CRLL KEY 
RET 


430 
440 

450 START 
460 
470 
4S0 
490 
500 
510 
520 
530 
540 
550 
560 
570 
530 
5Q0 
600 
610 
620 
630 
640 
650 
660 
670 
630 


LD 

LD 

El 

LD 

LD 

CP 

JR 

LD 

CP 

JR 

LD 

CP 

JP 

CP 

JR 

CP 

JR 

CP 

■JP 

CP 

RET 

CP 

JR 

CP 

JR 

LD 


HL , START 
(23749) , HL 

E , R 

R , (RD_TRB) 
1 

Z ,TRB1 

fl , ( RD VID) 

2 

Z , VIDI 
fi , E 
13 

Z , TSK 

017 
Z ,TAB 
20 

Z , VID 
165 

NC , O09F4 


123 

C , ZNAK 
144 

C , IMP GR 

BC , (UDG) 


FA7 A 

690 


SUB 

144 

FA7C 

700 


CfiLL 

RDR_ZN 

FR7F 

710 

720 


JR 

ULOŽ 

FfiS 1 

730 

IMP GR 

LD 

B , fl 

FA82 

740 


CfiLL 

»0B33 

FR85 

750 


LD 

DE , MEMBOT 

FfiS 3 

760 

770 


JR 

ULOŽ 

FRSR 

730 

TflB 

LD 

A , 1 

FfiSC 

FR3F 

790 

800 

810 


LD 

RET 

(AD_TAB) ,f 

FR90 

320 

TAB1 

LD 

D , 0 

FR92 

330 


LD 

A , E 

FA93 

340 


CP 

59 

F A95 

350 


JR 

NC ,TSK 

FR97 

868 


LD 

HL , BňFR 

FA9R 

870 


ADD 

HL , DE 

FR9B 

330 


LD 

(AD BFR ) ,1 

FR9E 

390 

900 


JP 

NUL_AD 

FRfll 

910 

VID 

LD 

A , 2 

FAA3 

920 


LD 

( AD V ID ) , 1 

FfiA6 

930 

940 


RET 

HL , AD INU 

FRA7 

950 

VIDI 

LD 

FRRA 

960 


LD 

A , E 

FflfiB 

970 


CP 

1 

FRRD 

930 


JR 

NZ , TRUE 

FflflF 

990 


LD 

fl , 47 

FRB1 

1000 

TRUE 

LD 

(HL) , fl 

FRB2 

1010 

1020 


JP 

NUL_RD 

FAB5 

1030 

ZNAK 

LD 

BC, (CHflRS 

FRB9 

1040 


INC 

B 

FflBA 

1050 


SUB 

32 

FRBC 

1060 


CRLL 

ADR ZN 

FfiBF 

1070 

ULOŽ 

LD 

B , 3 

FAC1 

1080 


LD 

HL , ( R D B F 

FRC4 

1090 


PUSH 

HL 

FACS 

1100 

ULOŽÍ 

LD 

fl, (DE) 

FAC6 

1110 

AD_INV 

DEFB 
, NOP 

0 

nebo CPL 


FRC-7 

FRC3 

FAC9 

FRCR 

FRCC 

FRCD 

FRČE 

FfiDl 

FAD2 

FRD5 

FRD7 


1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 


(HL) , R 
DE 


LD 
INC 
INC 
DJNZ ULOŽÍ 


POP 

INC 

LD 


PUSH HL 


HL 
HL 

( RD_BFR) , HL 


FRD9 1230 


HL , BfiFR 
LD D , 0 

LC> E , 53 

; počet znaf.u 
DEC E 


FflDA 

FRDB 

FflDC 

FRDD 

FfiDF 

FRE0 


FRE2 
FRE5 
FRE8 
FflEB 
FflEC 
FflEF 
FRF 1 
FflF2 
FFIF5 
FRFS 
FflFB 
FflFE 
FB01 
FB04 
FB07 
FB0R 
FB0B 
FB0D 
FB0F 

FB 10 
FB 13 
FB 14 
FB 15 
FB 17 
FB 13 
FB IR 
FB1B 
FB ID 
FB 1E 
FB 1F 
FB21 
FB22 
FB23 
FB24 
FB26 
FB27 
FB23 
FB2R 
FB2B 
FB2D 
FB2E 
FB2F 
FB30 
FB32 

FB34 

FB36 

FB37 

FB33 

FB39 

FB3R 

FB3B 

FB3C 

FB3D 

FB40 

FB43 

FB45 

FB43 

FB4fi 

FB4D' 

FB50 

FBS1 
FBS4 
FB57 
FB59 
FB5R 
FB5D 
FB60 
FB61 
FB62 
FB65 
FB68 
FB69 
FB6 A 
FB6B 
FB6E 
FB6F 
FB70 
FB72 
FB73 
FB74 
FB7S 
FB79 
FB7B 
FB7D 
FB30 
FB32 
FB35 
FB37 
FBS3 
FB3B 
FB3C 
FB3D 
FB3F 
FB91 
FB94 
FB95 
FB97 
FB99 
FB9B 
FB9E 
FBfil 
FBR3 
FBR5 
FBR3 
FBR9 
FBflB 
FBRC 
FBflF 
FBB0 
' FBB 1 
FBB3 
FBB6 
FBB3 
FBBfl 
FBBD 
FBC0 
FBC-2 
FBC3 
FBC6 
FBC7 
FBC3 
FBCfl 
FBCO 
FBD0 
FBD3 
FBD4 
FBD5 
FBD6 
FBD9 
FBDC 
FBDE 
FBDF 
FBE2 
FBE3 


1240 
1250 
1260 
1270 
1230 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1330 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 R 
1570 
1530 
1590 
1600 
1610 
1620 
1630 
1640 
1650 F 
1660 
1670 
1630 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1730 f 
1790 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 I 
1330 
1390 
1900 
1910 
1920 i 
1930 
1940 
1950 
1960 ' 
1970 
1930 
1990. 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2030 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2130 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2230 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2330 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2430 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2630 
2690 
2700 


TSK 


RDD 

POP 

AND 

SBC 

RET 

JR 


HL , DE 

DE 

R 

HL , DE 
NC 

T SKI 


, nebo JR ROTRCE 


FBE4 2710 OBA_0 CALL PS_PRP 
FBE7 2720 JR SUDY 

2730 

FBE9 2740 T_TISK LD B,S 
FBEB 2750 RD_RL DEFB 0 

2760 ; RLCR nebo RRCR 
2770 


SKI 


CALL 
CALL 
LD 
DEC 
LD 
CP 
RET 
CALL 

KEY LD 

LD 

CRLL 

LD 

LD 

CRLL 

CRLL 

LD 

CP 

JR 

RET 

ROTRCE LD 

ROTÍ PUSH 

ROT 2 PUSH 
LD 

ROT 3 LD 
SRL 
LD 
JR 
INC 
LD 
SET 
LD 
DEC 

ROT 4 DEC 

DJNZ 
POP 
DEC 
LD 
CP 
JR 
POP 
DEC 


TISK 
NULBFR 
R , (P_RRD) 
R 

(P_RAD) ,f 
0 

NZ 

INIRAD 
DE , 157 
HL , 1036 
O03B5 
DE ,411 
HL , 7 15 
O03B5 
O028E 
R , E 
255 
Z , KEY 


HL , 0463R 

HL 

HL 

B , 59 
fl , (HL) 

A 

(HL) , R 
NC , ROT 4 
HL 

fi, (HL) 

7 , R 
(HL) ,A 
HL 
HL 

R0T3 

HL 

H 

fl , 03F 
H 

NZ , R0T2 

HL 

H 


FBEC 
FBED 
FBEF 
FBF0 
FBF 1 
FBF4 
FBF5 
FBF6 
FBF3 
FBFfl 
FBFC 
FBFE 
FC00 
FC02 
FC03 
FC05 

FC06 
FC03 
FC0R 
FC0B 
FC0D 
FC0F 
FCl'1 
FC 13 
FC 15 
FC17 
FC19 

FC1A 
FC ID 
FC 1E 
FC 1F 


FC20 

FC21 

FC22 

FC23 

FC24 

FC25 

FC26 

FC27 


2780 

2790 

2300 

2310 

2320 

2330 

2840 

2350 

2360 

2870 

2830 

2390 

2900 

2910 

2920 

2930 

2940 


OR 
JR 
IN 
AND 
O UH- 
OŘ 
OUT 

T B IT 1 LD 

djn; 

RET 


LD 
LD 
ADC 
PUSH AF 
CfiLL C70 
POP 


C , A 
A , 0 
R , fl 


2950 CR 

2960 

2970 

2930 

2990 

3000 CR 1 

3010 

3020 

3030 

3040 

3050 

3060 

3070 TEST 
3030 
3090 
3100 
3110 
3120 


IN 

AND 

RET 

LD 

OUT 

IN 

RND 

JR 

LD 

OUT 

RET 


AF 
fl 

Z , T_B IT 1 
fl , (95) 
254 
(95) ,fi 
1 

(95) ,fi 
fl,C 
AD_RL 


A, (95) 
3 2 
NZ 

A , 247 
(95) , A 
A, (95) 
32 

Z , CR 1 
fl , 255 
(95) , fl 


LD ÍAD_BFR) , HL 
DEFB 17 
R COPY DEFB 59 

DEFB 0 ; LD D E , 59 

; ne bo ‘ LD DE,32 pro COPY 


3130 

3140 TST1 

3150 

3150 

3170 

3130 

3190 

3200 


ADD 

DEC 

LD 

OR 

RET 

DEC 

RET 

JR 


HL , DE 
HL 

A, (HL) 
A 

NZ 

E 

Z 

TST1 


CP 

H 


3210 




JR 

NZ , ROT 1 

FC29 

3220 

PS PRP 

LD 

fl , 251 

JR 

T SK 1 

FC2B 

3230 


OUT 

(95) , A 



FC2D 

3240 

PSI 

IN 

fl, (95) 

LD 

H , 0 

FC2F 

3250 


AND 

16 

LD 

L , fl 

FC31 

3260 


JR 

Z , PSI 

RDD 

HL , HL 

FC33 

3270 

PS2 

IN 

R, (95) 

ADD 

HL , HL 

FC35 

3280 


RND 

16 

RDD 

HL , HL 

FC 37 

3290 


jR 

NZ , PS2 

ADD 

HL , BC 

FC39 

3300 


LD 

R , 255 

EX 

DE ,HL 

FC3B 

3310 


OUT 

(95) ,fi 

RET 


FC3D 

3320 


RET 





3330 




LD 

HL , BRFR 

FC3E 

3340 

C60 

IN 

fl, (95) 

LD 

DE , BflFR+1 

FC40 

3350 


AND 

64 

LD 

(HL) ,0 

FC42 

3360 


JR 

NZ , C60 

LD 

BC , 2047 

FC44 

3370 


IN 

fi, (95) 

LDIR 


FC46 

3380 


RND 

64 

LD 

HL , BRFR 

FC48 

3390 


JR 

NZ , C60 

LD 

(AD_BFR) , HL 

FC-4A 

3400 


RET 


RET 



3410 






FC4B 

3420 

C70 

IN 

fl , (95) 

CRLL 

CR 

FC4D 

3430 


RND 

128 

LD 

HL , BAFR 

FC4F 

3440 


JR 

Z , C-70 

LD 

B ,4 

FC51 

3450 


IN 

fl, (95) 

PUSH 

BC 

FC53 

3460 


AND 

128 

CRLL 

TEST 

FC55 

3470 


JR 

Z , C70 

LD 

HL, ( AD_BFR ) 

FC57 

3430 

C71 

IN 

A , (95) 

INC 

H 

FC59 

3490 


AND 

123 

LD 

C , E 

FC5B 

3500 


JR 

N Z , C 7 1 

CRLL 

TEST 

FCSD 

3510 


IN 

fl , (95) 

LD 

HL , ( AD_BFR ) 

FCSF 

3520 


RND 

123 

DEC 

H 

FC6 1 

3530 


JR 

NZ , C7 1 

LD 

fl , C 

FC63 

3540 


IN 

A, (95) 

OR 

E 

FC65 

3550 


RND 

128 

JP 

Z , OBA 0 

FC67 

3560 


JR 

NZ . C71 

LD 

fl , C 

FCB 9 

3570 


IN 

A , (95) 

CP 

E 

FC6B 

3530 


RND 

123 

JR 

C , MENŠI 

FCSD 

3590 


JR 

Z, CEKEJ 

LD 

E , C 

FCSF 

3600 


JR 

C71 

LD 

D , E 


3610 




LD 

A , 7 

FC71 

3620 

CEKEJ 

LD 

A , 200 


MENS I 


LD (AD RL ) 

LD A , 253 
OUT (95) , A 
CALL C60 
LD B , 10 

SM POC CALL C70 

- SM__POC 

HL) 


DJNZ 
VPRAVO LD 

CALL 

INC 

DEC 


T TISK 

HL 

E 


LICHÝ 


LI 

VLEVO 


SUDY 


JR 

NZ , VPRAVO 

LD 

B , 255 

CALL 

C70 

INC 

B 

IN 

fl , (95) 

AND 

64 

JR 

N Z , R 1 

CRLL 

C70 

CRLL 

C70 

LD 

R , 255 

OUT 

(95) ,fi 

CfiLL 

PS PflP 

LD 

E , D 

LD 

D,0 

DEC 

E 

LD 

HL , (AD_BFR) 

ADD 

HL , DE 

INC 

E 

LD 

A , 15 

LD 

<AD_RL) , A 

LD 

fl , 247 

OUT 

(95) , R 

CALL 

C60 

CALL 

C70 

DJNZ 

LI 

LD 

A, (HL) 

CALL 

T T ISK 

DEC 

HL 

DEC 

E 

JR 

NZ , VLEVO 

CALL 

CR 1 

CfiLL 

PS_PRP 

LD 

HL , (RD_BFR 

INC 

H 

POP 

BC 

DEC 

B 

JP 

NZ , SMYC 

LD 

R, (LflST K ) 

CP 

81 

RET 

NZ 

CfiLL 

INIT 

RST 

3 

DEFB 

255 


FC73 

FC74 

FC:75 

FC76 

FC73 
FC7fi 
FC7B 
FC7E 
FC7F 
FC32 
FCS4 
FC35 
FC37 
FC38 
FC39 
FC8A 
FCSD 
FCSF 
FC-90 
FC91 
FC92 
FC93 
FC95 
FC96 
FC97 
FC93 
FC9B 
FC9C 
FC9D 
FC9F 
FCR0 
FCR3 
FCR5 
FCA6 
FCA3 
FCA9 
FCfiC 
FC AF 
FCB0 
FCB 1 
FCB3 
FCB4 
FCB7 
FCB9 
FCBfl 
FCBC 

FCBD 

FCBF 

FCC0 

FCC'1 


POSUV 

PŘEN 


3630 CEK 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 

3740 P_OSR 
3750 

3760 PŘENI 
3770 
3730 
3790 
3300 
3310 
3320 
3330 
3840 
3350 
3360 
3S70 
3330 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4030 
4090 
4100 
4110 
4120 
4130 
4140 
4150 


NOP 

DEC A 
RET Z 
JR CEK 


LD 

PUSH 

LD 

PUSH 

LD 

LD 

PUSH 

LD 

PUSH 

PUSH 

PUSH 

LD 

LD IR 

POP 

INC 

POP 

POP 

DJNZ 

POP 

DEC 

PUSH 

CALL 

POP 

INC 

DJNZ 

POP 

LD 

LDIR 

POP 

DJNZ 

EX 

LD 

LD 

PUSH 

PUSH 

LDIR 

POP 

LD 

LDIR 

POP 

LDIR 

RET 


b,s 

BC 

DE ,tt5B00 
DE 

HL , Jí 4000 

B , 24 

BC 

B , 8 

BC 

HL 

HL 

BC , 32 

HL 

H 

DE 

BC 

PŘENI 

BC 

B 

DE 

«0E9B 

DE 

B 

P_OBR 

HL 

BC , 32 
BC 

PŘEN 
DE , HL 
DE , «5B00 
BC , 32 
BC 
HL 

DE 

BC , 736 
BC 


AD_BFR DEFB 0,i 

P RAD DEFB 0 

RD_TAB DEFB 0 
RD V ID DEFB 0 


